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TSKSTI is the portion of TSKMON that contains the code 
to implement the Sh'i command. 
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Ma I r o calls 



. MCALL 


. CSISPC, . TTOUTR, . SRESET 


. MCALL 


. READW, , TTYJN, . TTVOUT, . PURGE 


. MCALL 


. CSIGEN, . SAVEST, . REOPEN 


. MCAl.L 


. GTLIN, . <r| :tM, . DATE, . SPFUN 


. MCALL 


. PRINT, . CLOSE, . LOOKUP 


. MCALL 


. WRITW, . LNiLR, .EXIT 


. MCALL 


. SERR, . HFUR, . FPROT, . GVAL, . PV 


i Global defini 


tions 



GLOBL TSKSTI , CMDHD, CMDOFF, KDOCIN, SKPSPC, UCLCMD 
GLOBL DORUN, CMDFRM, CMDDSN, STLGCN, DATTIM, PRGALL 
GLOBL DLCEMT, ALCDEV, CMDSHO, CMDSET, CMDWHO, CMDMEM, CMDUSE 



Gloha.l references 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



LSWl 1, *PWKEY, SETCL, SETHST, DVFLAG, DX*NST, TM$MRS 
SC*SUC, SC*WRN, SC*ERR, SC*SEV, SC*FTL, SC*UNC, SC*NON 
SETPRC, SETTT Y, STVRFY, STNOVR, P0*SYS, RCLREV 

PA*GRC, PA*UKC, PA*DSC, PA$BLD, PA*ULN, PA*DWD, PA*HQL, PA*LET 
EM$PTA, EM*PTU, SBPSUF, CHKCLU, EM*CLX, PA*BEL, Ef1*0PR, PA*NWD 
SCNOPS, TM^XBK, CL*XLN, CKCLUS, ACRSTR, R50KMN, SJEMT, RJEMT 
PEKEMT, PEKADR, PEKSIZ, TM*NNR, CDBUF, CDGET, TM*IN1, TM«IN2 
SYPSWD, EMiSiSPL, ACRTXT, JPWDEV, JPWTYP, JPWFLG 
EM*WC0, EM$WC1, EM*WC2, EM*WC3, EM*WCM, P2*CGR 
CXTRMN, R$CHN, R*XCHN, CHNSIZ, C. USED, CL*EPN, CL*EPS, CLEOFS 
EDMALD, EM*STL, EM*IST, CLSFEP, EM*IDR, VPRIDF. SETWRD 
CLRPRV, DPTLST, PESO, PFCO, PVNPW, P0*SPV, PRIVSO, PRVOPT 
TM*PVA, TM^PVC, PRIVAO, EM*CNO, EM*CPO, EM*CAP, RSTPRV 
CHKEQ, CKACOJ, PO^OPR, CKSYPV, P2$TRM, PRIVC2, PO*NAM, EM«NPR 
INSTBL, INGADR, INGEMT, IIBUF, II*NAM, II*FLG, II*«SZ, EM*NAD 
INSTBN, AFfSCA, AF*NOW, AF$MEM, PO$DBG, PRIVCO, PRVLST 
CINFLG, *VNOTT, II*PRV, II*NPV 
TM«LCL, TM*GBL, SPACE 1 , RC*OWN, RC*CNT 
RC$EXC, RC*AGE, RC*AEP, RC*USE, RC*FLG, RC*GBL, RC*NAH 
RC*LEN, RC*PVT, RCBBAS, RCBEND, RC**SZ, SHRRCB, SHRRCN 
LPSSPD, LP*PAR, LP*ODD, LP*7BT, EM*ICL, PROSLT, RC*LCG 
EM$NPD, EM$:i;tN, EM*CIP, EM«NSF, EM*IUN, EM*CLN 
EM*ILN, EM$ACL, EM*TSL, EM«CLB, EM*NSL, EM*SLT, EM*SLW 
SLKDON, Si..K.OOF, EM*UIO, TM*PR1, TM*PR2, TM*LPR, TM*HPR 
TM$HPE, TM*CMG, 1M«CDS, TM*CEN, TRMHDl, TRMHD2, AT*DEV 
OPRTXT, CLLIWE, LCLTXT, REMTXT, TM*AUT, CLFREE, CLUNIT 



ABRTAD, ABRTCD, 
TM$RD1, TM*RD2, 



TSKSTl 



K e y b D a t d 



Command MACRO V05. 04 Monday 



-Dec-S7 12; 57 Page 1-1 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 
79 

80 

8.1 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 1 

111 

112 

113 

114 



GLOBL TM*CL0. TM*CL 1 , TM*CL2, TM*CL3, TM*CL.4, TM*CL5, TM*CL6 

OLOBL QHDMSl , QHDMS2, DVSHHl , DVSHH2, DVSHH3, SYASHD, DKASHD 

GLOBL. TM$NAD, ALCHDl > ALCHD2, TM*NSD, TM*SDN, LNAME 

OLOBL CORUSR, LSW, *CTRLO, SERFLO, lOABFL, *CHACT, *STSNG 

GLOBL LSTHL, LCLUNT> FSTIOL, LSTIOL> CL*LIX, CW*PRO, C0NFG2 

GLOBL CL*RQH.. CL.*W«H, MAXALC, ALCTBL , ALCEND 

GLOBL AD*DVU. AD'HviOB, AD*«SZ. UCIDEF, HANCHN 

GLOBL NEDCHR, LOUTIR, LINIR, LINRTS, CLOT I R 

GLOBL CO*DEF, CL*COL>LCDTYP,SOPALC, SOPDAT,SOPTIM 

GLOBL UTRPAD> JSWLOC, ERRLOC> MAXMEM, MAXPRI 

GLOBL SPUBUF, SXBPNT, MXJADR 

GLOBL TMTOTH, TMTOTL, TMUSRH, TMIOWH> LDMNT> EM*CSE 

GLOBL TMSWTH, TM.1DLH, TMIOH, TMSWPH> LDCLEIM 

GLOBL WILDFL, *NOIN> $NOWTT, *HITTY 

GLOBL TECO, EDIT, KED, K52. $1STLG, *DIBOL 

GLOBL SH*VAL, SH*NAM, SH**SZ, SHfRTN, SH*FLG 

GLOBL SO*NVL, SO-$OCT, SO*ND, HANENT, HAMSIZ 

GLOBL H. CSR> H. VEC> DVSTAT, SFID, ACRSPD, HANPAR, LSTSPL 

GLOBL HAZEL, HAZL^L, HAZLNO, $MLOCK> MDT, GETKCH 

GLOBL LINBUF, L.TNNXT, LSTACT, PRGTOP. PRGSIZ, KMNHI 

GLOBL KMNTOP, KMNPGS, KMNSTK, KMNSTR, CXTPAG, FSTIOL 

GLOBL LINPNf, LINCNT, LACTIV, LRDTIM, CS*ROiM 

GLOBL LOTBUF, LOTNXT, LOTPNT, f VTESC 

GLOBL LOTSIZ, LOTSPC, LCOL, 4JSLKED, ESC, VDBFLG 

GLOBL LAFSIZ, LFWLIM, LINCUR, NUMON, ILSW2 

GLOBL $DBKMN 

GLOBL $CARUP, DOASGN, UKMNAM, *UKMON, LSW9 

GLOBL LSUCF, $CCLRN, VLDSYS, EM*NUK, S*QMIO 

GLOBL KL3CLR, *PRGLK, LSW5> PVON, S*SPND, *AUTO 

GLOBL BfTWFN, S*TTFN, S*OTFN, S*IOFN, S^OTLO 

GLOBL LSTDL, FSTDL, *DETCH, UMSYTP, S«TTSC 

GLOBL *DISCN, LPROvJ, LPROG, LUNAME, S*RT, S*LOW 

GLOBL LCPUHI , LCPULO, LCONTM, *CTRLS, *SPLJB, TXTCL 

GLOBL STPFLG, TOTON, USPLCH, SPLCHN, S*HICP 

GLOBL S*INWT, S*OTWT, S*TMWT, S*SFWT, S9600 

GLOBL S*MSWT, CFBUF, CFEND, CCLSAV, KMNCHN 

GLOBL MINTIM, LSECPT, MAXSEC, *EMTTR, VCSHNB 

GLOBL OKFILE, OKFLND, *CLTST, UCISPC, MHNSIZ 

GLOBL CASTBR, CASCBR, CASTBW, CASCUP, MHNSMS 

GLOBL CASTRO, CASTWO, CLTDTL, CO*DTR, CLSFSP 

GLOBL CO*CR, CO$FF, CO*FFO, CO*LC, CO*TAB, CO^CTL 

GLOBL CO*LF.T, COfLFO, CO*BNI, CO$BNO, CL*OPT 

GLOBL CL*LEN, CL*SKP, CL*WID, CL*LII\I, PHYMEM 

GLOBL LJSW, CTRLTT, MEWJSW, JSTKND, VI MAGE 

GLOBL USTART, GENTOP, BOTDEV, BOTUNI , CSHALC 

GLOBL liCTRLC, LSW2, *INKMN, CHAIN, UFORM 

GLOBL *SGQO, *SGQ3, LITIME 

GLOBL MAXASW, *CFABT, INDSTA, INDERR 

GLOBL RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL $DILUP, CSHDEV, CSHDVN, LNSBLK 

GLOBL LSW3, LSW2S, ^SDUPRN 

GLOBL *FORM, $TAB, LSCCA, *CFSOT, LOFSPC, R50C0M 

GLOBL fPAOE, *SCOPE, *ECHO, *LC, *SBIT, CHKALC 

GLOBL UCHAN, ^FORMO, *CFALL, *CFDCC, *CFCCL 

GLOBL LNPRIM, LNMAP, CW«50H, CONFIG, *SUCF 

GLOBL *DOOFF, WUCHN, LRBFIL, CFIND, TALEMT 
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GLOBL C. CSW. C. DEVQ, C. SBLK, NLINES, C0*8BT 

CLOBL CD^NAM. CD*DVU, CD*BAS, CD*JOB, CD$*S2, CD**UB 

GLOBL LTSCMD, LNSPAC, CFNEST, UCLNAM 

GLOBL *CFOPN, CFSEND, PBFEND, CFSP, *7 TGAS 

GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

GLOBL SDFLAG, SD*FLK, SD*WFH, SDFORM, *UCLRN 

GLOBL SDBUFl, SDBLK, NSPLDV, LD*RON, *UCLCM, *UCLCL 

GLOBL LDNAME, LDSI2E, LDFLAG, LDBASE, LDPDEV 

GLOBL LSWS, *SGQ1, $SGQiA, *SGQ1B, liSGQlC, *SGQ2, *Sei 10, *SGHIO 

GLOBL *DEFER , CFCHAN, SCHA I N, LDDE VX , *SG ALL 

GLOBL CFP.NT, CFBLK, $QU!ET, DIABFL 

GLOBL DIABNO, VT52N0, LA36N0, LA36FL 

GLOBL LSW4, KL4CLR, SDSKIP, SDBU, SD*BAK 

GLOBL *INCOR, W.ED. VQUNIB, VI NT ID, VGUNIC 

GLOBL SF*BSY, SFFORM, SD*SNG, SFNMBL, NFRESB 

GLOBL SD*HLD, SF*HLD, CURPRM, PRMPNT, SF*iST 

GLOBL LSTPRM, PRMBUF, PRMEND, CFSPND 

GLOBL SDFHD, SFFLAG, SFQLNK, CFHOLD, LOGDVU, LOGBAS 

GLOBL LCOL, *QTSET, *TECO, CD$TOP, LOGCHK 

GLOBL $WILD, ERRSEV, UERSEV, PASLIW, LOGBAS, LOGDVU 

GLOBL LSTPL, SDGB, SDCBND, VQUANO, VQUAN3 

GLOBL VQUANl, VQUNIA, VQUAN2, VHIPCT, VQUANO, VQUAN3 

GLOBL DCTRD, DCCRD, DCTWR, DCCWR, ASWSRC 

GLOBL VCORTM, NUMDCD, VNUMDC, KMPRMT, MXPRMT 

GLOBL RDB, RDBEND, RT*NAM. RT**SZ. CLDEVX, SDDVU 

GLOBL SDNAME, SDCBSZ, LSTSL, LSTATE 

GLOBL TKIVAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

GLOBL BASMAP, LOMAP, HIMAP, v;CXPGS 

GLOBL SMRSIZ, SRTSIZ, CSHSIZ, TKISEC 

GLOBL TSXLN, TSXSIT, GRTl, TRGRET, LICTXT, SUPCOD, NAMTDP, SUMS, SUCS 

GLOBL LPRGl, LPRG2, S*QUSR, S*IOWT, S*SFWT 

GLOBL S*SPDB, S*SPCB, SFUSER, SFFILE, VT200, VT2007, VT2008 

GLOBL LCBIT, LA36, LA120, VT52, VTIOO, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

GLOBL VTIOFL, VTIONO, QUMEFL, QUMENO, ADM3FL 

GLOBL VT20FL, V-r20N0 

GLOBL ADM3N0, SYINDX, SYUNIT, NUMDEV, PNAME 

GLOBL OF«DEV, OF$UNT, OF$FIL, OFfFLG, SYNAME 

GLOBL QF*$SZ, OT*RON, RESDEV, *TAPE 

GLOBL KMNSAS, ODTBAS, *CTRLD 

GLOBL LSW6, $SNWTT, PF*SYS, PF$IOW, *DEBUG 

GLOBL RSR, TSR, LMXMUM, LSTMX, MXDTR, ZCLR, MXCSR 

GLOBL *INDDF, *INDRN, IN*ACT, IN*CNT, IN*CMD, INDSAV 

GLOBL *PHONE, IWVEC, LMXLN, MXVEC, *INIT, *DEAD, «HARD 

GLOBL ITRMTP, LMXPHM, LSW7, *INDAB, CFSTS, CF*IND, CF$QUT 

GLOBL CFABLV, liONVEC, LBSPRI, MAXPRI, MXJPRI, LPRI, 'tSYSPS 

GLOBL LOGCHN, LOGFLG, LOGPTR, LOGBUF, LOGBLK, LF*IN, LF*OUT 

GLOBL LF«OPN, LF$WRT, UCLBLK, UCLDAT 

GLOBL CSHHD, FC$CDX, FC*LNK, FD*NAM, UC*NDC, UC*MDC, CVTUC 

GLOBL CMDBUF, PAUNSG, RDCMD, DKSAV, SYSAV, CVTTAB, RUNHD, SEARCH 

GLOBL INVOPT, FKILL, ABRTCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

GLOBL PUSHCF, TRM3TR, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, R50TSX, R50UCL 

GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 

GLOBL BADSAV, LDNAM, NOPRG, NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, ABNOVF, GTRD50, R50BUF, R50LD0, MNTDEV, DMTAR© 

GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NDFLAG, MTOPHD, INVOPT, ILLCMD 



TSKSTl — Keyboard SET Command MACRO V05. 04 Monday 21~Dec~87 IP: 57 Page 1-3 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
135 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 



GLOBL R50LD.. INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TBLOVF, SETHD, CS.tMS2, CKPRIV, R50N0, AMBOPT, ACRDEC 

GLOBL MAXAVL, PRTDF£C, DEVUNT, PNAME, HNBUF, CKTERM 

GLOBL ACROCT, HANBSY. CSIMSl, MISSEQ. NOIND, POPCF 

GLOBL BADPMT, BADPRI, TDTXT, CRLF, HIPRI, STLGHD, LOGCLS, R50L0G 

GLOBL BDLGOP> SPLHLA, NOCCL, LDOPHD, PRTFIX, PRTSPC 

GLOBL DLTXT, OCTFIX, PRTTTP, NATXT, SPDTXl, NOTXT, YESTXT, NINTXT 

GLOBL PRTUNM, SYHDl , SYHD2, PRTLN, SPACE2, DETTXT, SPACES, RNMS 

GLOBL SWPTX, LOCKTX, SPACES, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

GLOBL NOUDC. DEVHDl , ASNHDl , ASNHD2, SHMTHl , SHMTH2, PRTTMD 

GLOBL CVDVNM, SPACE6, PRTBUF, PRTFNM, NOiMEMS, NODAT, NOLDMT 

GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGS, MNBPC 

GLOBL DELSPC, MNBASE, MNTOP, MONHD, MONARl, NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURMTX, CHKDLM, SPLHD, AMBOPT, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK. COAD, SPACTV, SPWFM, DEVIDL 

GLOBL SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, MSGEND. NOTON, GAGMSG 

GLOBL LINFRE, DJABM3, DLMSG, INVTIM, DMTALL 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, DFFEMT, KILEMT, UPTMMS 

GLOBL TMTOTH, DIVSOR, TMTOTL, PRTPCT, SUMl, SUM2, SUMO, SUM4 

GLOBL SUMS, SUM6, SUN7, OTHRON, SPLPND, STPASK, SRTSMS, CHKTTD 

GLOBL SIZEMT, ASNOVF, INVLDM, CSIMS4, MNTARG, HUPARG, R50TT 

GLOBL KMNNAM, NOKMON, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL 

GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS, SSRMAP 

GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

GLOBL DETHD, DETARG, RUNMS, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

GLOBL AR*PRJ, AR$PHG, AR*CON, ARtCNT, AR*CPH, AR*CPL, AR*UNM 

GLOBL AR*DMY, AR**S2, ARNRPB, *SLON, *SLTTY, *SLLET 

GLOBL PRTWRN, SLNXLN, VSLEDT, *LOFCF, CSHMSG 

GLOBL AF*HIE, AF*NOI , *NOINT, AF*PLK, AF*DBG 

GLOBL AF*IOP, *RNIOP, VOFFTM, VTMOUT 
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Astiemblij constants 



LF 


= 


12 


CR 


-: 


15 


BLANK 


z:-. 


40 


BELL 


::; 


07 


TAB 


= 


11 


FF 


s- 


14 


COMMA 


= 


54 


BLKWDS 


:= 


256. 


WLDNAM 


= 


132500 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

COMMA 

# OF WORDS IN DISK BLOCK 

RAD50 /*/ (WILDCARD) 
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Macro to cause a fatal error message to be printed. 

. MACRO FERR MSO 

MOV R5, -<SP) 

MOV MSG, R5 

CALL FPRINT 

MOV (SP)+, H5 

. ENDM FERR 



Macro to print a fatal error message, clean up 
and then jump to RDCMD. 

. MACRO FAB OR T MSO 

MOV MSG, R5 

hJMP FKILL 

. ENDM FAB OR T 



Macro to print a ujarnincj message 

. MACRO FWARN MSG 

MOV R5, -CSP) 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name -- 1 to 4 character table name. 

NA = Number of arguments per table entry. 

. MACRO TBLDEF NAME> NA 

NAROS = NA 

. CSECT CMDVSl 

NAME'HD: .WORD 2*NA 

. ENDM TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG == Ascii name 

A* B.. C = Set of option parameters to store in table with name, 

. MACRO CMDDEF STRNO, A, B, C 
. CSECT NAMES! 



. I IF 
. XIF 



. ASCIZ /STRNG/ 

. CSECT CMDVSl 

. WORD L 

. WORD A 

GE, <NARGS-2> . WORD 

GE, <NARGS-3> . WORD 

. ENDM CMDDEF 



.: POINTER TO NAME STRING 



B 
C 
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59 .: Mat;T-D to end a set of table entries. * 



60 ; 

61 . MACRO TBLEND 

62 . CSECT CMDVSl 

63 . WORD 

64 . CSECT TSKSTl 

65 . ENDM TBLEND 
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Define options for the SJ-T command. 



Table of "device 
pointer to a set 



' names for the SET command and 
of sub— options for the device. 



a 000000 

9 000002 
10 000012 
1 1 nnnncio 

12 000032 

13 000042 

14 000052 

15 000062 

16 000072 

17 000102 

le 000112 

19 000122 

20 000132 

21 000142 

22 000152 

23 000162 

24 000172 

25 000202 

26 000212 



2/ 



000222 
2S 000232 

29 000242 

30 000252 

31 000262 

32 000272 

33 000302 

34 000312 

35 000322 

36 000332 

37 000342 

38 000352 

39 000362 

40 000372 

41 000402 

42 000412 

43 000422 

44 000432 

45 000442 

46 000452 

47 000462 

48 000472 

49 000502 

50 000512 

51 000522 

52 000532 

53 000542 

54 000552 

55 000562 

56 000572 

57 000602 



TBLDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 



SET, 3 

CA*CHE, STCHMB, O, 
CC«L, SETSUB, CCLHD, 
CO-s-RTIM, SETSVL.- VCDRTM, 10000. 
CTRLD, SEISUB, CTDHD, 
ED*IT, SETSUB, EDITHD, 
EM*T, SETSUB, EMTHD, 
ENDS*TARTUP, SETESU, 0, 
ER#RDR, SETSUB> ERRHD, 
EX* IT, RDCMD, 0, 
HIP«RCT, SETSVL, VHIPCT, 10000. 
HO#ST, SETHST, 0, 
IND, SETSUB, INDHD, 
INT#IOC, SETSVL, VIIMTIO, 10000. 
IO»ABORT, SETPRV, lOABHD, 
KMO*M, SETSUB, KMOMHD, 
LAN«GUAGE, SETSUB, LANGHD, 
LOG, SETLOG, 0, 
LDGO^FF, SE1L0F, 0, 
MAX*PRIORITY, SETMPR, 0, 
NUM*DC, SETNDC, NUMDCD, 
OFF*TIM, SETSVL, VOFFTM, 10000. 
PROGRESS, SETPRC, 0, 
PROM«PT, SETPRT, 0, 
PRI«ORITY, SETPRI, 0, 
PRINTS-«-CREEN, SETPRS, 0, 
PRINTW^-INDOW, SETPRS, 0, 
QUANO, SEISVL, VOUANO, 10000. 
QUANl, SETSVL, VQUANl, 10000. 



QUANIA, SFTSVL 
QUANl B, SETSVL 
QUANl C, SETSVL 



VQUNIA, 10000. 

VQUNIB, 10000. 

VQUNIC, 10000. 

/QUAN2, 10000. 
QUAN3, SEISVL, VQUAN3, 10000. 
REC*ALL, SETREC, 0, 
SHUTttDOWN. SETSHT, 0, 
N0SHUT*DOWN, SETNSH, 0, O 
SIG*NAL, SETSUB, SIGHD, 
SL, SETSL, O, 
SUB^PROCESS, SETSBP, 0, 
SYSP PASSWORD, SETSYP, 0, O 
SYSP#WD, SETSYP, O, 
TE^RMINAL, SETTTY, O, 
TT«Y, SETTTY, O, 
TIM-frOUT, SETSVL, VTMOUT, 10000. 
UC*L, SETSUB, UCLHD, 
US-H'R, RDCMD, 0, 
VER*-IFY, STVRFY.. 0, 
NOVER*-IFY, STNOVR, 0, 
WI*LDCARDS, SETSUB, WILDHD, 
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58 00061;? CMDDEF WIN*DOWS, 8EI WIN, 0, 

59 00062;? CMDDEF WINP*RT, SETPRS* 0, 

60 000632 TBLEND 
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Def-jne options for SET EDIT command 

TBLDEF EDIT, 3 

CMDDEF ED*IT, SEEDIT, 

CMDDEF KED, SEKED, 

CMDDEF K52, SEK52, O 

CMDDEF T-n-ECO, SETECO, 
TBLEND 






iHRUH commsr.'. 



TBLDEF ERR, 2 

CMDDEF W-«-ARNING, BElSEV, SC*WRM 

CMDDEF E^tRROR, SETSEV, SC*ERR 

CMDDEF S*EVERE, SETSEV, SC*SEV 

CMDDEF F*ATAL, SETSEV, SC*FTL 

CMDDEF U*NCOMDITIONAL, SETSEV, SC*UNC 

CMDDEF N«ONE, SETSEV, SC*NON 

TBLEND 

Define options for SET WILDCARDS command 

TBLDEF WILD, 3 

CMDDEF IM«PLICIT, SETBIT, LSW5, *WILD 

CMDDEF EX*PLICIT, CLRBIT, LSW5, *WILD 

TBLEND 

Define options for the SET KMON command 

TBLDEF KMON, 3 

CMDDEF IND, SETIND, L SW5, *INDDF 

CMDDEF NOI#ND, R ST IND, LSW5, *INDDF 

CMDDEF SY*STEM, CLRBIT, LSW7, *UKMON 

CMDDEF UC I , SETUKM, O, O 

CMDDEF USE*R, SEi UKM, O, 

CMDDEF NEW, SETKNW, 0, O 

CMDDEF DEBUG, SETB 11 , LSW9, *DBKMN 

CMDDEF NODEBUG, CLRBIT, LSW9, $DBKMN 

TBLEND 

Define options for the SET CCL command 

TBLDEF CCL, 3 

CMDDEF T#EST, SETBII , LSW5, $CLTST 

CMDDEF NOT*EST, CLRBIT, LSW5, $CLTST 

CMDDEF NEW, SETCNW, 0, 

TBLEND 

Define options for the SEI UCL command 

TBLDEF UCL, 3 

CMDDEF F-»IRST, SI UCLF, LSW7, *UCLCF 

CMDDEF M«IDDLE, STUCLM, LSW7, *UCLCM 

CMDDEF L#AST, STUCLL, LSW7, *UCLCL 

CMDDEF N*ONE, STUCLN, LSW7, 

TBLEND 
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Define options for the: SET IND command 

TDLDEF IND, 3 

CMDDEF AB*ORT, SFrBJT, I.SW7, *INDAB 

CMDDEF h40A#B0RT, CLRBIT, LSW7, *INDAB 
TBI..., END 

Define options for the GbT LD command 

Tni ncrcr i nno i 

CMDDEF CL*EAN.. GLDCl N 

CMDDEF EMP*TY, SLDEMP 

CMDDEF FR#EE, SLDFRE 

CMDDEF WRttlTE. SLDWRT 

CMDDEF NOWR •«■ ] TE, SLDNWR 
TBLEND 

Define options for the BE'f SL command 

TBLDEF SLE, 1 

CMDDEF AS^K, SLONOP 

CMDDEF KED, SLOKPD 

CMDDEF K52, SLOKED 

CMDDEF HEX, SLOKED 

CMDDEF NOKED, SLDRT 

CMDDEF LEA»RN, SLOUWl 

CMDDEF NOLEA«-RN, BLDNPP 

CMDDEF LET, SLOLET 

CMDDEF NOLET, SLONl-T 

CMDDEF OF*F, SLOOFi- 

CMDDEF ON, SLOON 

CMDDEF KM-»ON, SLOON 

CMDDEF RT*il,SLORT 

CMDDEF SUB-SSTITUTE, SLOLET 

CMDDEF NOSUB-KSTITUTE, SLONLT 

CMDDEF SYS-«-GEN, SLONOP 

CMDDEF TT*YIN, SLOTTY 

CMDDEF NOTT^YIN.. SLONTT 

CMDDEF WID-STH, SLOWJD 

CMDDEF REC*ALL, SLONOP 

CMDDEF NOR EC* ALL, SLONOP 

TBLEND 

Define options for the SLT RECALL 

TBLDEF RCL, 1 

CMDDEF N-H-ORMAL, 

CMDDEF R-a-EVERSE, 1 
TBLEND 

Define options for tht? SET WINDOW command 

TBLDEF WIN, 2 

CMDDEF COL*UMNS, WINCDL, 

CMDDEF DA«RK, W I NB 1 1 , WFNORM 

CMDDEF DEL*£TE, WINBIT, WFDEL 
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CNDDEF L I «GHT. W:C MB J T, WFREM 

CMDDEF NAR^ROW, WINBIT, WFBO 

CMDDEF NOR#MAL, WINBIT, WFNORM 

CMDDEF OFF. WIND IT, WFDEL 

CMDDEF ON, WIND IT, 

CMDDEF REV«-ERSE, WIND IT, WFREV 

CMDDEF SCR«-OLL, WINSCR, 

CMDDEF NOSCR-fi-OLL, WINMOS 

C MDDEF W I -frDE , W I NB I T , WF 1 32 
TBLEND 

Define options for th& b'tl PRINTWINDOW command 

TBLDEF PRS, 1 

CMDDEF BEL*L, PR3BFL 

CMDDEF NOBEL«L, PRSNBL 

CMDDEF DEVfrlCE, PRSDEV 

CMDDEF DR»AFT, PRSDRF 

CMDDEF KEY*PR I NT, PRSKEY 

CMDDEF NOKEVNsPRlNT, PRSNKY 

CMDDEF L.ET«-TERQUAL1TY, PRSLET 

CMDDEF TY*PE, PRSTYP 

CMDDEF WID-a-TH, PRSWID 

CMDDEF NOWID-»TH, PRSNWD 
TBLEND 

Printer types for SET PR JNTWINDOW/TYPE=ty pe 



TBLDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
TBLEND 







PWT, 2 

AS«C I i , O, 

FOR «£ ION, 0, O 

PRINTfiRDNI);, 0, 

SIM-«-PLE, 0, 

ST*ANDARD, 0, 

LA36, 0, 

LA 120, 0, 

LA 100, 1 , PA*GRC ! PA*UKC ! PA*ULN ! PA*HQL ! PA*DWD 

LAI 2, 1 , PA*C-)RC ! PA*UKC ! PA*BLD ! PA*ULN ! PA*HQL ? PA*DWD 

LA50, 1 , PA*eRC i PA*UKC ! PA*DSC i PA*BLD ! PA*ULN ! PA*HQL ? PA*DWD 

LA210, 1 , PAHGRC ! PA*UKC ! PA*DSC ! PA*BLD ! PA*ULN f PA*HQL ! PA*DWD 

LQP02, l,PA']iBLDiPA$ULN 

LQP03, 1,PA*BLD!PA*ULN 

LN03, 1 , PA«GRC ) PA*BLD ! PA*ULN i PA*DWD 



Define options for the GL-f LANGUA<3E command 

TBLDEF LANG, 3 

CMDDEF DI*BOL, 3ETB1T, LSW6, *DIBOL 

CMDDEF DBL, CLRB1T,LSW6, *DIBOL 

TBLEND 

Define options for thfc SET EMT command 

TBLDEF EMT, 3 

CMDDEF TR*ACE, SETEMT, l,SW6, *EMTTR 

CMDDEF NOTR*ACE, CLRB 1 T, LSW6, *EMTTR 
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TBLEND 

Define options for the 1A.T lOABORT command 

TBLDEF lOAB, 3 

CMDDEF AB#ORT, STRWRD, IOABFL> 1 

CMDDEF NOAB#DRT, STRWRD, IDABFL, 

TBLEND 

Define options for thr SET SIGNAL command 

TBLDEF SIG, 3 

CMDDEF H#IPRCT, SETBIT, LSWS, $SGHIO 

CMDDEF NOH*IPRCT> CLRBIT, LSWS, *SGHIO 

CMDDEF I«NTIOC.. SETBIT, LSW8, *SGIIO 

CMDDEF NOI*NTI0C, CLRBIT, LSW8, *SGIIO 

CMDDEF QUANO, SETBIT, LSWS, $SGQO 

CMDDEF NOQUANO, CLRBIT, LSWS, $SGQO 

CMDDEF QUANl, SETBIT, LSWS, *SGQ1 

CMDDEF NOQUANl, CLRBIT, LSWS, *SGQ1 

CMDDEF QUANIA, SE fBIT, LSWS, *SGQ1A 

CMDDEF NOQUANIA, CLRBIT, LSWS, $SGQ1A 

CMDDEF QUANIB, SETBIT, LSWS, *SGG1B 

CMDDEF NOQUANIB, CLRBIT, LSWS, «SGQ1B 

CMDDEF QUANIC, SETBIT, LSWS, *SGG1C 

CMDDEF NOQUANIC, CLRBIT, LSWS, *SGQ1C 

CMDDEF QUAN2, SE I BIT, LSWS, *SGG2 

CMDDEF N0QUAN2, CLRBIT, LSWS, *SGQ2 

CMDDEF QUAN3, SETS IT, LSWS, *SGQ3 

CMDDEF N0QUAN3, CLRB 1 T, LSWS, $SGG3 

CMDDEF OFF, CLRBIT, LSWS, *SGALL 
TBLEND 

Define options for the SLT LOG command 

TBLDEF STLG, 1 

CMDDEF A-«LL, STLGAI 

CMDDEF CLE*AN, STLGCN 

CMDDEF CLO*SED, STLGCL 

CMDDEF FI*LE, STLCr-L 

CMDDEF I«NPUT, STLGIN 

CMDDEF 0*UTPUT, STLGOT 

CMDDEF WR*ITE, STLGWR 

CMDDEF N0WR*1TE, STLGNW 
TBLEND 

Define options for the GET LOGOF-F command 

TBLDEF STLO, 1 

CMDDEF FI«LE, STLOFL 
TBLEND 

Define options for the SE I SUBPROCESS commend 

TBLDEF SBP, 1 

CMDDEF F I -tt-LE, SB! 'F 1 L 
TBLEND 
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230 i Def-jne options for the '3L1 CTRLD command 

231 i 

232 000000 TBLDEF CTD, 1 

233 002356 CMDDEF D*EBUG> STCDON 

234 002362 CMDDEF NOD«EBUG, STCDOF 

235 002366 TBLEND 
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Data art- as 



HANSAV 
R50CL.0 
R SOCIO 
WINFLO 



. BLKW 5 

. RAD50 /CLO/ 

. RAD50 /CIO/ 

. WORD 



Space for . SAVESTATUS 



Fla((f-> stored in WINFi-0 



ypDEL 

WFREV 

WFNORM 

WF132 

WFSO 



I 

2 
4 
10 
20 



j Deists ths luindouf 

; Put terminal in reverse video 

; Put terminal in normal video mode 

iPut terminal in 132 column mode 

; Put terminal in 80 column mode 



077 
200 
077 
200 
077 
200 
077 
200 



Terminal control sequenc emj 
TCREV: .ASCII <33>/E?5h/<200> ^Select reverse video display 
TCNORM: .ASCII <33>/L"?51/<200> ; Select normal video display 
TCI 32: .ASCII <33>/C?3h/<200> > Select 132 column mode 
TCSO: .ASCII <33>/C?31 /<200> ; Select 80 column mode 
. EVEN 

Emt to Bet line speed 



LSPEMT; .BYTE 0, 154 
. WORD 
. WORD 



i Line number 
; Speed code 



Emt to reinitialize data caching 

DCHNEW: . BYTE 0, 126 
. WORD 6 



Emt to set job priority 

PR I EMT: . BYTE 0. 150 
. WORD 

Emt to create uindouj # 1 

WINMAK: . BYTE 0, 161 

. BYTE J > 1 

. BYTE 00. . 16. 

. WORD 0. 

Emt to map to ujindow # 1 

WINMAP: .BYTE 1, 161 
. BYTE 1, 

> Em t t- o delete lu i n d o uj 41 .1 
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WINDEL: .BYTE 2. 161 
. BYTE i, 

Emt to dismount all LD ' e. 

DMTALD: . BYTE 5.. 135 
. WORD 
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. SBTTL SET command 
ProcpsE. the "SET" commancl. 



CMDSET: CALL 
CALL 
MOV 
CLRB 



CVTTAfi 
SKPSPC 
R3, R5 
NOFLAG 



; CONVERT TAB AND FF CHARS TO SPACES 
iSkip up to start of device name 
; SAVE COMMAND STRING POINTER 
i ASSUME "NO" OPTION NOT SEEN YET 



If device name ends with a colon (e.g. 

lit 1 -f" K ."TV *- »\ ••% f r-K 



"IT: ") replace the colon 



7$: 



Get ne.xt char of device name 
Reached end of name? 
Br if yes 

Start of qualifiers? 
Br if yeB 

Is this character colon? 
Br if not 

Replace colon uiith space 
8*: MOV R5j R3 i Get back pointer to start of device name 

Look up device name and t-ee if we recognize it as a pseudo-device 
such as TT, WILDCARD, etc. 



MOVB 


<R3)+, RO 


CMPB 


RO, #40 


BLOS 


8* 


CMPB 


RO, #'/ 


BEQ 


a* 


CMPB 


RO, #': 


BNE 


7* 


MOVB 


#40. -<R3.> 


MOV 


R5. R3 



MOV 

CALL 
BCS 



#SETHD, R4 

SEARCH 

1* 



GET TABLE OF PSEUDO-DEVICE NAMES 

SEARCH FOR DEVICE NAME 

BR IF NOT A PSEUDO-DEVICE NAME 



This is a pseudo-device name. 

Jump off to appropriate processing routine. 



JMP 



@(R4)+ 



i viUMP OFF TO PROCESSING ROUTINE 



Device name is not recognized as a pseudo device. 
Apply any logical device assignment to the device name. 



1*: 



?*: 



MOV 


R5, R3 


CLR 


R50BUF+2 


CALL 


GTRD50 


MOV 


R50BUF, RO 


TST 


R50BUF+2 


BEQ 


2* 


FAB OR T 


#CSIMS2 


CALL 


ASNSRC 


BCS 


6* 



MOV AT*DEV(R2),R0 
MOV RO, R50BUF 



POINT BACK TO DEVICE NAME 

CLEAR 2ND WORD OF RAD50 NAME 

ACCRUE RAD50 VALUE 

GET DEVICE NAME 

MAKE SURE NAME ONLY 3 CHARS LONG 

BR IF OK 

INVALID DEVICE FOR SET 

Search for device name in assign table 

Br if name was not assigned 

Get the physical device name 

Set neui device name for SET 



See if this is a SET LDn command 



6*: 



CMP 


RO, R50LD 


BLO 


3* 


CMP 


RO, R50LD7 


BHI 


3* 


TSTB 


VLDSYS 


BEG 


5* 



; SEE IF IT IS LD 

i BR IF NOT 

J CHECK HIGH RANGE 

i IS LD SUPPORT GENNED IN? 
; BR IF NOT 
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c 

i 
i 

i 
i 

i 

4 

i 



59 

60 

61 

62 000300 004767 OOOOOOG 

63 

64 

6ti 

66 000304 005727 OOOOOOG 

67 000310 001406 

6B 000312 004767 OOOOOOG 
69 000316 103403 

70 000320 oiooo;.' 

71 000322 000167 OOOOOOG 

72 000326 000167 000446 



JMP SETLD > GO PROCESS SET LD COMMAND 

See if this device is allocated to another user 

3$: CALL CHKALC i Chech for allocation conflict 

See if this is a SET CLn command 



i Are there any CL lines? 

i Br if not 

;See if this is a CL or CI unit 

; Br if not CL or CI unit 

i Pass CL unit number in R2 

.i Process SET CL command 



TST 


#CLTOTL 


BEQ 


5* 


CALL 


r^uu nil 


BCS 


5* 


MOV 


RO, R2 


JMP 


SETCL 


-.JMP 


SETDEV 



I 

€ 
€ 
€ 

f 

i 

€ 
f 

i 
I 
i 
4 
4 
I 
€ 

i 
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:t 

n 

3 
4 
5 
6 
7 

9 

10 

I I 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000332 
000336 
0003-^0 
000342 
000346 
000350 
000352 
000356 
000360 
000364 
000366 
000372 
000374 
000376 
000400 
000404 
000412 



000414 
000416 
000422 
000424 
000426 



000430 
000432 
000436 



000440 
000442 
000444 



000446 
000450 
000452 

000462 



004767 
010246 
010546 
122327 
001401 
005303 
004767 
11 1300 
120027 
001403 
120027 
00 100 I 
005203 
010302 
0047/67 
026767 
001005 



010305 
004767 
112325 
00 1 376 
010203 



011404 
004767 

103403 



01260!^ 
1 260f ! 
000134 



005704 
001407 



TBLEND macros. 



0000000 

000072 

OOOOOOG 

000075 

000072 



000000<3 
OOOOOOG 



Process SET commands that have sub-options 

I n p 1 1 1 s : 
R3 ~ Pointer to start of qualifier in command line. 
R4 = Points to start of command table built luith TBLDEF. 

Outputs: 
R3 = Pointer beyond end of qualifier. 
R4 = Pointer to argument value uord in command table. 

See if set option is prt;ceded by "NO". 

iMust have SYSPRV privilege 



OOOOOOG 



SETPRV; 


CALL 


CKSYPV 


SETSUB : 


MOV 


R2, -(SP) 




MOV 


R5, -(SP) 




CMPB 


(R3)+, #': 




BEQ 


3* 




DEC 


R3 


3*: 


CALL 


SKPSPC 




MOVB 


(R3), RO 




CMPB 


R0,#' = 




BEQ 


5* 




CMPB 


RO, #': 




BME 


6* 


5$: 


INC 


R3 


6*: 


MOV 


R3,R2 




CALL 


GTRD50 




CMP 


R50BUF, R50N0 




33 NE 


1* 



OOOOOOG 



OOOOOOG 



WAS DEVICE NAME FOLLOWED BY COLON? 

BR IF YES 

RESET POINTER IF NOT 

SKIP OVER SPACES 

Get next character from command 

Is there an equal sign? 

Br if yes — skip over equal sign 

Colon separator? 

Br if not 

Skip over separator 

SAVE COMMAND STRING POINTER 

ACCRUE NEXT WORD IN RAD50 FORM 

IS WORD "NO"? 

BR IF NOT 

Option is preceeded by NO. Concatenate NO with follouiing qualifier. 

GET POINTER INTO COMMAND PAST "NO" 
SKIP OVER SPACES FOLLOWING "NO" 

4$: MOVB (R3)+, <R5)+ ; CONCATENATE OPTION WORD WITH "NO" 

MOVE ALL OF COMMAND 

1^^: MOV R2, R3 .= GET BACK POINTER TO OPTION WORD 

Look up the option ujord. 

MOV @R4, R4 /GET POINTER TO TABLE OF OPTIONS FOR COMMAND 

CALL SEARCH ; LOOK FOR THE CORRECT OPTION WORD 

BC3 BDSO > BR IF INVALID OPTION 

Enter Option processinp routine. 



MOV 


R3, R5 


CALL 


SKPSPC 


MOVB 


(R3)+, <R5)H- 


BNE 


4* 


MOV 


R2, R3 



MOV 
MOV 
JMP 



(SP)+. R5 
(SP)+, R2 
€(R4)+ 



Inval i d op t i on. 

BDSO: TST R4 

BEQ INVSOP 

FAB OR T #AMBOPT 

JNVLDO: . PURGE #HANCHN 



i PERFORM PROCESSING FOR OPTION 



INVALID OR AMBIGUOUS OPTION? 

BR IF INVALID 

AMBIGUOUS OPTION 

MAKE SURE THE CHANNEL IS CLOSED 



t 

4 

i 
I 
€ 
€ 
€ 

4 
I 
I 
I 
{ 
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5S 000470 INVSDP: FADORT #INVOPT i INVALID OPTION 



€ 

i 

i 

4 
4 
t 

< 
4 

I 



TSKSTl -■- Keyboard SET Command 
S y 5 t ff ff! pa T a ;n s t {/ f b 



1. 

.-; 

*-. 

3 
4 

6 
7 
8 
9 

10 
1 1 



000500 004767 OOOOOOG 



23 
24 
25 
26 
27 



12 

13 000504 

14 000510 
15 

16 
17 
18 

19 000514 

20 000516 

21 000520 
000523 
000524 
000526 
000530 
000536 
000545 

28 000550 

29 

30 

31 

32 000552 

33 000554 
34 

35 

36 

37 000560 

38 

39 

40 

41 000564 

42 000570 

43 000574 



004767 OOOOOOG 
016400 000002 



00 570 J. 
002402 
020100 

ioi4i;j 

010001 

01 000 ;^ 

004767 OOOOOOG 
000401 



010134 

000167 OOOOOOG 



004767 OOOOOOG 



004767 OOOOOOG 
016700 OOOOOOG 
000747 
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. BB T T L S y s i- cm p a r a m e t e r s 

.; Set a system parameter vaiite. 

> 

i I n p u t !i : 

; R4 Points to cell with address of parameter cell to be modified> 

; following word contains maximum legal value for parameter. 



5ETSVL: CALL 



CKSYPV 



A r" 1 ■ "y ■ 1 1 t-i Yl 1 1 m o TV -J r* v / ra 1 i i m 



MOV 



ACRDEC 
2(R4). RO 



iMust have SYSPRV privilege 



; ACCRUE A DECIMAL VALUE 

; GET MAX LEGAL VALUE FOR PARAMETER 



Make sure the value is valid. 
Rl " Accrued value* RO 



SETSVV: 


TST 


Rl 




BLT 


3* 




CMP 


Rl. RO 




BLOS 


1* 


3*: 


MOV 


RO, Rl 




MOV 


RO, R5 




. PRINT 


#MAXAVL 




CALL 


PRTDEC 



PRINT #CRLF 



BR 



4* 



Maximum legal value. 



CHECK FOR NEGATIVE VALUE SPECIFIED 

BR IF INVALID VALUE SPECIFIED 

IS SPECIFIED VALUE OK? 

BR IF OK 

GET MAX LEGAL VALUE 

VALUE TOO LARGE 
PRINT MAX LEGAL VALUE 
END LINE 
FINISHED 



Store value into paramett?r cell 



1$: 

4*: 



MOV 
JNP 



R 1 , € ( R4 ) + 
RDCMD 



.: SEI NUMDC value 
SETNDC: CALL CKSYPV 
i A c c: 1 • u e numeric va 1 u e 



CALL 

MOV 

BR 



ACRDEC 
VNUMDC, RO 
SETSVV 



i STORE NEW VALUE INTO PARAMETER CELL 

; FINISHED 



;Must have SYSPRV privilege 



ACCRUE A DECIMAL VALUE 

GET MAX LEGAL VALUE FOR PARAMETER 

Check and store value 



€ 



rSKSTl - 


--•• Ksybt. 


ard BE) 


Cofflrnand 


MACRO V 




S y s t e i?i 


ptsranieti 


cs 




.1 

2 










3 
4 


000576 


004767 


OOOOOOG 




.3 

7 










S 


000602 


004767 


0000000 




9 


000606 


016700 


0000000 




10 


000612 


005701 






1 1 


nnni. -i .i 

v/ w w v»> -fc t 


002402 






12 


000616 


020100 






13 


000620 


10141;! 






14 


000622 


OlOOOJ 






15 


000624 


OlOOOt'' 






16 


000626 








17 


000634 


004767 


OOOOOOG 




18 


000640 








19 










20 










21 










22 
23 
24 


000646 


010167 


OOOOOOG 












25 










26 


000652 


012700 


000056 ' 




27 


000656 


10437t> 






28 


000660 


000167 


OOOOOOG 




29 










30 










31 










32 


000664 


10 5767 


OOOOOOG 




33 


000670 


00 1 00''! 






34 


000672 








35 


000702 


032767 


OOOOOOG 


OOOOOOG 


36 


000710 


001004 






37 


000712 








38 


000722 


052761 


OOOOOOG 


OOOOOOG 


39 


000730 


000167 


OOOOOOG 




40 


000 734 


042761 


OOOOOOG 


OOOOOOG 


41 


000742 


000167 


OOOOOOG 




4l-' 
43 










44 










45 


000746 


032 767 


OOOOOOG 


OOOOOOG 


46 


000754 


00 \ 00 ^'f 






47 


000756 








48 


000766 


052761 


OOOOOOG 


OOOOOOG 


49 


000774 


000167 


OOOOOOG 





GET CACHE -^ value 
STCHNB: CALL CKSYPV 
Accrue numeric value 



3'$: 



CALL 


ACRDEC 


MOV 


CSHALC, RO 


TS1 


Rl 


BLT 




CMP 


R 1 .. RO 


BLOS 


1* 


MOV 


R0,R1 


MOV 


RO, R5 


. PRINT 


#MAXAVL 


CALL 


PRTDEC 



. PRINT #CRLF 
Store value into paramt?t{=-r ce 
1*: MOV R1,VCSHNB 

Ndu.1 clean out the data cache 



iMust have SYSPRV privilege 



; ACCRUE A DECIMAL VALUE 

i GET MAX LEGAL VALUE FOR PARAMETER 

; CHECK FOR NEGATIVE VALUE SPECIFIED 

.; BR IF INVALID VALUE SPECIFIED 

i IS SPECIFIED VALUE OK? 

i BR IF OK 

i GET MAX LEGAL VALUE 

VALUE TOO LARGE 
PRINT MAX LEGAL VALUE 
END LINE 



MOV #DCHNEW, RO 
EMf 375 
JMP RDCMD 

SET CTRLD E NO 3 DEBUG 



; STORE NEW VALUE INTO PARAMETER CELL 

.; EMT to clean out the cache 
i FINISHED 



STCDON; TSTB 
BNE 



VDBFLG 
1* 

FABORT #EM*NPD 
l<i: BIT #PO*DBG, PRIVCO 

BNE 2* 

FABORT #EM$NAD 
2* : BIS #$CTRLD, LSW9 ( R 1) 

JMP RDCMD 
STCDOF : B I C tfCTRLD, LSW9 ( R 1 ) 

JMP RDCMD 

i SE'I EMT TRACE 

> 

SETEMT: BIT #PO*DBG, PR IVCO 

BNE 1* 

FABORT #EM$NAD 

1 « : BIS #*EMTTR , LSW6 ( R 1 ) 

JMP RDCMD 



i Was debugger genned into the system? 

i B r if yes 

; No program debugger 

i Can uje use debugger? 

i Br if yes 

j Not alloujed to use debugger 

i Enable ctrl-D debugger entry 

; Disable ctrl-D debugger entry 



i Are Mie allowed to use debugger? 
; B r if y e & 

.; Not allowed to use debugger 
; Enable EMT trace 



TSKST i — K s>.jb Q 3 r d 
Real d (,; V i (.. 
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i 
n 

3 
4 

5 

6 00 

7 00 

8 00 

9 00 

10 00 

1 1 nn 



BBTTL 



W("f-jli oevice 



12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



00 
00 
00 
00 
00 



1 000 
i 004 
1006 
1012 
1 1 4 
1020 
1 024 
1026 
1 030 
1034 
1036 
1042 
1044 
1 046 
1052 
1056 
1062 
1064 



1066 
1074 
1114 



00 
00 



1116 
1154 



1156 
1164 



00 
00 
00 
00 



1174 
1214 
1 222 
1 224 



01d701 
005000 
07 1 027 
010146 
070027 
0101 67 
012601 
001407 
16270.1 
002450 
020127 
003045 
000402 
012701 
010167 
122327 
00 1 40 i 
005303 



016767 
103420 
103007 



032767 

00 ! 007 



0000000 

000050 

000050 



000036 
000007 



1 00000 

000000(5 

000072 



0000000 000002G 4$: 



The device name is not- a pseudo-device. 
See if it is the name of a real device. 

GET THE DEVICE NAHE AND UNIT 

CLEAR HIGH ORDER REGISTER 

STRIP THE LAST RAD 50 CHARACTER 

SAVE THE UNIT NUMBER 

GET THE DEVICE NAME SHIFTED 

AND STORE BACK INTO THE RAD 50 BUFFER 

GET THE UNIT NUMBER 

BR IF NO UNIT NUMBER WAS SPECIFIED 

NORMALIZE TO ZERO 

ERROR IF LESS THAN ZERO 

CHECK UNIT RANGE 

ERROR IF GREATER THAN SEVEN 

CONTINUE 

SET NO UNIT WAS SPECIFIED FLAG 

SAVE THE UNIT SPECIFIED 

WAS DEVICE NAME FOLLOWED BY COLON? 

BR IF YES 

BACKUP POINTER 

Lookup the handler file and read in the first 2 blocks. 

MOV R50BUF, HNBUFi-2 > SET UP HANDLER NAME 

.LOOKUP #XAREA, #HANCHN, #HNBUF> TRY TO LOOKUP HANDLER FILE 

BCS SEFIVD i BR IF CAN'T FIND HANDLER 

. READW #XAREA, #HANCHN, «BL,K0, #512. . #0 i READ IN 1ST 2 BLOCKS 

BCC SETCKP .; Branch if read ok 

Invaiid device name. 



SETDEV: MOV 


R50BUF,R1 


CLR 


RO 


DIV 


#50, RO 


MOV 


R 1 , - < SP ) 


MUL 


#50, RO 


MQV 


R 1, R50EU!" 


MOV 


(SP)+, Rl 


BEQ 


2* 


SUB 


#36, Rl 


BLT 


SETIVD 


CMP 


R 1 , #7 


BGT 


SETIVD 


BR 


3* 


21i: MOV 


#100000.. Rl 


3*: MOV 


R 1 , DEVUNT 


CMPB 


(R3)+,#': 


BEO 


4* 


DEC 


R3 



SETIVD: . PURGE #HANCHN 
FABORT #CSIMS2 



; MAKE SURE CHANNEL IS CLOSED 
; INVALID DEVICE NAME 



We are performing a set to a device handler. 
User must be privileged to do this. 

SETCKP: . SAVEST #XAREA> #HANCHN, #HANSAV ; Save channel status in HANSAV 



OOOOOOG OOOOOOG 



45 0012;: 



BIT #PO*OPR,PRIVCO 

BNE NXTQPT 

. PURGE #HANCHN 

FABORT #EM*OPR 



Is user privileged 7" 

Br if yes 

Close handler channel 

Not-privileged error message 



TSKSTl 



■ - Keyboard 
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3 

4 001242 

5 001246 



Acrrue the set option word. 



7 00 

8 00 

9 00 
10 00 



1 1 
12 



51 



00 
00 



13 00 

14 00 

15 00 

16 00 

17 00 



1252 
1254 
1260 

1264 

1272 
1276 
1300 
1304 
1310 
1312 



105067 

004767 

010302 
004767 
120027 
001012 
00 4 7 67 
120027 
00 1 00'.> 
105267 
004767 
000401 
010203 



ooooooe 

0000000 



0000000 
000116 

0000000 
000U7 

OOOOOOG 
0000000 



18 

19 001314 004767 0000000 

20 

21 

22 

23 00 

24 00 

25 00 



NXTOPT: CLRB 
CALL 
> Check for 
MOV 
CALL 
CMPB 
BNE 
CALL 
CMPB 
BNE 
IWCB 
CALL 
BR 
7«: MOV 
; Accrue the 
9$: CALL 



NOFLAG 
SKPSPC 
"NO" precedinq 
R3, R2 
GETKCH 
RO, #'N 
7* 
QtTTuru 

RO, #'0 
7* 

NOFLAG 
SKPSPC 
9* 

R2, R3 
option word. 
GTRD50 



the 



i RESET THE "NO" OPTION FLAG 
iSKIP OVER ANY SPACES 
option word. 

; SAVE COMMAND STRING POINTER 
; GET NEXT COMMAND CHARACTER 
; IS IT "N"? 



BR IF 
CHECK 
IS IT 
BR IF 



NOT 
NEXT 
"0"? 
NOT 



CHARACTER 



i REMEMBER "NO" SPECIFIED 

jSKIP over spaces FOLLOWING "NO" 

i RESET POINTER TO START OF OPTION WORD 

; ACCRUE AS A RAD50 VALUE 



Lookup the option word in the handler header. 



26 00 

27 00 

28 00 

29 00 

30 00 

31 00 

32 00 
33 

34 
35 

36 00 

37 00 
3S 00 
39 00 
40 

41 00 

42 00 

43 00 

44 00 

45 00 

46 00 
47 

48 00 

49 00 i 

50 00.1 



1320 
1324 
1330 
1332 
1336 
1344 
1346 
1354 
1 3^o 
1362 



1364 
1 370 
1 374 
1376 

1402 
1406 
1410 

1416 

1 420 
1 424 



012704 
005764 
00 1 002 
000167 
026764 
001004 
026764 
001403 
062704 
000760 



116402 
042702 
006302 

062702 

105767 
001410 
132764 

ooioo;? 

000167 
062702 



000400G 
OOOOOOG 

177124 

OOOOOOG OOOOOOG 

000002G 000002G 

OOOOOOG 



SETOPT: 
10*: 



11*: 



?*; 



MOV 
TST 
BNE 
JMP 
CMP 
BNE 
CMP 
BEQ 
ADD 
BR 



#BLK0+400, R4 

SH*VAL(R4) 

11* 

INVLDO 



; POINT TO START OF HANDLER TABLE OF SET OPTIONS 

;HAVE WE REACHED THE END OF THE TABLE? 

; CONTINUE CHECKING 

; BR IF YES — CAN'T FIND OPTION WORD 



R50BUF, SH*NAM<R4)i COMPARE NAME WITH THIS ENTRY 

2* ; BR IF MISMATCH 

R50BUF+2, SH*NAM+2<R4) 

9* ;BR IF FOUND ENTRY FOR THIS OPTION 

#SH**SZ,R4 ; POINT TO NEXT OPTION ENTRY 

10* ; CONTINUE SEARCH 



Found entry for this option. 



9$: 



i bee 



uu 
^,,.'. 00 

53 00 

54 00 

55 00 

56 00 



O/ i.'U.i4/U 



430 1327-6<1 
4;.j6 00143;:! 
■1-40 00 4 '767 
122327 
001401 
00? 303 
00476 '' 

01 030 r? 

J 32764 

00 ioo;.i 



14 44 
1450 
1452 
1454 
1460 
1 462 



OOOOOOG 
177400 

000400G 

OOOOOOG 

OOOOOOG OOOOOOG 



000464 

000004 14*: 

> See 
OOOOOOG OOOOOOG 3*; 

OOOOOOG 
000075 



OOOOOOG 7*: 

OOOOOOG OOOOOOG 



MOVB 

BIC 

ASL 

ADD 
if "NO" 

TSTB 

BEG 

BITB 

BNE 

JMP 

ADD 
if o p t i 

BITB 

BEQ 

CALL 

CMPB 

BEQ 

DFC 

CALL 

MOV 

BITB 

BNE 



SH*RTN<R4), R2 
#•••^0377, R2 
R2 

#BLK0+400, R2 
option is allowed 
NOFLAG 
3* 

#SO*NO, SH*FLG<R4 
14* 

SETIVS 
#4, R2 
on takes a numeric 
#SO*NVL, SH*FLG<R4 
4* 

SKPSPC 
<R3)+, #'•-= 



GET OFFSET TO ROUTINE TO CALL 
CLEAR SIGN EXTENSION 
CONVERT FROM WORD TO BYTE OFFSET 
ADD BASE ADDRESS 

WAS "NO" SPECIFIED WITH OPTION? 

BR IF NOT 

i IS NO ALLOWED WITH THIS OPTION? 

BR IF YES 

INVALID OPTION 

GET ADDRESS OF SET ROUTINE FOR NO-OPTION 



parameter. 

)iDOES OPTION REQUIRE A NUMERIC PARAMETER? 

BR IF NOT 

SKIP OVER ANY SPACES 

IS OPTION WORD FOLLOWED BY EQUAL SIGN? 
7* ; BR IF YES 

R3 ; BACKUP POINTER 

SKPSPC iSKIP OVER ANY SPACES 

R3, R5 i SAVE POINTER TO START OF NUMBER 

#SO*OCT.. SH*FLG(R4.>; IS NUMERIC VALUE OCTAL? 
6* .- BR IF YES 



TSKSTl - 


- - K e u t) (.■> 


art! '-•£ r 


Command 




V< g a 1 d B 


V 1 (. e 




f?,9 


0014/r' 


004 767 


OOOOOOG 


59 


0C14 76 


000402 




60 


001500 


004767 


OOOOOOG 


61 


001504 


010100 




62 


001506 


020305 




63 


001510 


00 1 002 




64 


001512 


000167 


000372 


65 


001516 


122327 


000056 


66 


001522 


001401 




67 


001524 


005303 




60 








69 








70 








71 








7'P. 








73 


OOi 526 


010046 




74 


00 1 530 






75 


001536 






76 

"7";' 


001556 


01260^.! 




79 








79 








80 








Bl 








82 








03 


001560 


010346 




84 


001562 


016403 


OOOOOOG 


85 


001566 


016701 


OOOOOOG 


86 


001572 


000241 




87 


001574 


004712 




88 


001576 


012603 




89 


001600 


012702 


000000 


90 


001604 


103001 




91 


001606 


005202 




92 








93 








94 








95 


001610 






96 


001616 






97 


001636 






9S 


001656 


00 5702 




99 


001660 


00 in::! 




1 00 








101 








102 








103 


001662 


004767 


OOOOOOG 


104 


001666 


112300 




105 


0016 70 


001406 




106 


001672 


120027 


000054 


107 


001676 


001401 




108 


001700 


005303 




109 


00 1 702 


000167 


177334 
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6*: 
5*; 



15*: 



CALL 


ACRDEC 


BR 


5* 


CALL 


AC ROOT 


MOV 


Rl, RO 


CMP 


R3, R5 


BNE 


15* 


JMP 


SETIVS 


CMPB 


(R3)+, # 


BEG 


4* 


DEC 


R3 



i ACCRUE A DECIMAL VALUE 

ACCRUE AN OCTAL VALUE 

GET VALUE IN RO FOR SET ROUTINE 

DID WE ACTUALLY GET A NUMBER? 

BR IF YES 

BR IF NOT 

WAS DECIMAL POINT SPECIFIED? 

BR IF YES 

BACKUP POINTER 



■> Open channel 17 (uhich is normally used for KMON overlays) to 
i the handler file so that some handlers can use this channel to 
i read in and updated additional blocks in the handler. 

4*: MOV RO, -<BP) ; Save numeric parameter value 

PURGE #17 iPurge channel 17 <KMON overlay channel) 

.REOPEN ttXAREA, #17, #HANSAV ;OpBn channel 17 to handler file 
MOV <SP)+, RO j Restore numeric parameter value 

Call routine in handler that actually does the set. 
On entry the folloiuinp retjisters are set up: 

RO - Optional numeric parameter value. 

R3 = Fixed option \/a'\KiB found in option word (SH*VAL) 

SAVE COMMAND STRING POINTER 
GET VALUE FROM OPTION ENTRY 
GET THE DEVICE UNIT SPECIFIED 
CLEAR C-BIT BEFORE ENTERING HANDLER 
CALL SET PROCESSING ROUTINE IN HANDLER 
RECOVER COMMAND STRING POINTER 
SAY NO ERROR (DON'T AFFECT C-FLAG) 
BR IF NO ERROR OCCURRED 
SET ERROR FLAG IN R2 

Restore status of HANCHN and channel 17 

13*; .PURGE #17 ; Purge channel 17 

.REOPEN #XAREA. #17, #KMNCHN ; Reopen channel 17 to KMON 
.REOPEN #XAREA, #HANCHN, #HANSAV ; Reopen HANCHN to handler 
TST R2 ; Any error detected in handler? 

BNE SETIVS ; Br if yes 



MOV 


R3, -(SP) 


MOV 


SH*VAL(R4),R3 


MOV 


DEVUNT, Rl 


CLC 




CALL 


@R2 


MOV 


(SP)+, R3 


MOV 


#0, R2 


BCC 


13* 


INC 


R2 



See if there are more optionJK 



12*: 



CALL 


SKPSPC 


MOVB 


<R3)+,R0 


BE<5 


SETUP 


CMPB 


RO, #', 


BE(3 


12* 


DEC 


R3 


JMP 


NXTOPT 



SKIP SPACES 

GET NEXT CHAR 

BR IF REACHED END 

IS COMMA THE DELIMITER? 

BR IF YES 

BACKUP STRING POINTER 

GO PROCESS THE NEXT OPTION 



( 

I 
i 

i 

t 
t 
I 
I 
4 
C 
I 
i 
t 
4 
4 
4 
4 
4 



TSKSTl 
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R.sal dwvi. 



>.i 



4 








5 


001706 






6 


001744 






7 








S 

9 








10 


001752 


016702 


OOOOOOG 


1 1 


001 756 


') 16700 


0000020 


12 


001762 


020062 


OOOOOOG 


13 


001766 


001412 




14 


001770 


162702 


000002 


15 


001774 


003372 




16 


001776 






17 


002012 


000434 




le 








19 








20 








21 








22 


002014 


032762 


0000000 000000 


23 


002022 


001407 




24 


002024 






25 


002040 


000421 




26 


002042 


012700 


0000000 


27 


002046 


010260 


000004 


28 


002052 


005067 


0010060 


29 


002056 


005067 


00 101 00 


30 


002062 


012760 


0010000 000006 


31 


002070 


104375 




32 


002072 


103004 




33 


002074 






34 


002 1 04 


000167 


0000000 


35 








36 








37 








38 


002110 






39 


002116 







.1 F'-inished with all options. 

; Write updated handler back to its disk file. 

f 

SETUP: . WRITW #XAREA, #HAI\ICHN, #BLK0, #512. . #0 
. CLOSE #HANCHN 

iMouj try to update the runninci handler in memory. 



1*: 



i GET INDEX TO LAST DEVICE IN DEVICE TABLES 

;Get device name 

; LOOKUP DEVICE NAME 

; 13R IF FOUND 

..MORE ENTRIES TO CHECK? 

.: BR IF YES 

; Warn that handler is not installed 



We have located the entry For the handler. 

See if we are allowed to change the in-memory handler image. 



MOV 


NUMDEV, R2 


MOV 


UKini itrj.'^ tan 


CMP 


RO, PNAME<R2) 


BHO 


3* 


SUB 


#2, R2 


BOX 


1* 


FWARN 


#EM*HNI 


BR 


2$ 



3*: 



4'$: 



2$: 



BIT 


#DX*NST.. DVFLAG<R 


BEG 


4* 


FWARN 


#TM*MRS 


BR 


2* 


MOV 


#HUPARG, RO 


MOV 


R2. 4(R0) 


CLR 


BLKO+1006 


CLR 


BLKO+1010 


MOV 


#BLK0+1000, 6<R0) 


EMT 


375 


BCC 


2* 


FAB OR T 


#HANBSY 


JMP 


RDCMD 



Invalid command 



SETIVS: 



. PURGE 
FAB CRT 



#HANCHN 
#CSIMS1 



i Br if yes 

iTell user that he must reboot the system 

POINT TO ARG BLOCK FOR UPDATE INFO 

SET DEVICE INDEX NUMBER 

Clear LQE in handler image 

Clear CQE in handler image 

SET ADDRESS OF START OF NEW HANDLER CODE 

TRY TO UPDATE RUNNING HANDLER 

BR IF SUCCESSFUL 

HANDLER WAS ACTIVE 

FINISHED 



.i MAKE SURE CHANNEL IS CLOSED 



< 
I 

i 
« 
I 

€ 
4 
I 
i 
4 
4 
4 
4 
f 
I 
4 
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I 

€ 



3 
4 

5 










6 


002126 


004767 


0000000 




7 


002132 


012405 






a 


002134 


060105 






9 


002136 


051415 






10 

1 1 
■1 '•J 


002140 


000167 


0000000 




13 
14 


002144 


004767 


0000000 




15 


002150 


012405 






16 


002152 


0601 or,' 






17 


002154 


04 1 4 1 'J 






IS 


002156 


000167 


0000000 




19 










20 










21 










22 


002162 


012405 






23 


002164 


011415 






24 


002166 


000167 


0000000 




25 










26 










27 










28 


002172 


122327 


000075 




29 


002176 


001014 






30 


002200 


122327 


000040 




31 


002204 


001775 






32 


002206 


00530:.:5 






33 


002210 


004767 


OOOOOOG 




34 


002214 


116702 


OOOOOOG 




35 


002220 


061402 






36 


002222 


110112 






37 


002224 


000167 


OOOOOOG 




38 










39 


002230 








40 










41 










42 










43 


002240 


042761 


OOOOOOG 


OOOOOOG 


44 


002246 


000167 


OOOOOOG 




45 










46 










47 










48 


002252 


042761 


OOOOOOG 


OOOOOOG 


49 


002260 


052/61 


OOOOOOG 


OOOOOOG 


50 
51 


002266 


000167 


OOOOOOG 




53 

54 


002272 








55 


002272 


042761 


OOOOOOG 


OOOOOOG 


56 


002300 


052'^''d1 


OOOOOOG 


OOOOOOG 


57 


002306 


000167 


OOOOOOG 





ProcGBs options which on.Ui involve setting/resetting flags. 
Set a bit in a user table 



PRVSET: CALL 

SETS IT: MOV 

ADD 

BIS 

viMP 



CKPRIV 
<R4)+, R5 
Rl, R5 
©R4, @R5 
RDCMD 



REQUIRE PRIVILEGE 

POINT TO TABLE 

POINT TO TABLE ENTRY FOR THIS USER 

SET THE DESIRED FLAG 



Re!;if?t a bit in a user t^ble 



PRVCLR: CALL 

CLRBIT: MOV 

ADD 

BIC 

JMP 



CKPRIV 
(R4)+> R5 
Rl, R5 
©R4, eR5 
RDCMD 



REQUIRE PRIVILEGE 

POINT TO TABLE 

POINT TO TABLE ENTRY FOR THIS USER 

RESET THE DESIRED FLAG 



Routine to store a value into a word cell 



STRWRD: MOV 
MOV 
JMP 



<R4)+, R5 
<R4), <R5> 
RDCMD 



i POINT TO WORD 

J SET VALUE IN WORD 



NOEQL 



Routine to accrue a byte value and store it into a line table. 

EQUAL SIGN SHOULD BE NEXT CHAR 

BR IF ERROR 

SKIP INTERVENING SPACES 



ACCRUE THE DECIMAL VALUE 
GET LINE INDEX # 
POINT TO LINE ENTRY IN TABLE 
STORE VALUE INTO TABLE 



; MISSING EQUAL SIGN 



SETBYT: 


CMPB 


(R3)+, #'== 




BNE 


NOEQL 


2*: 


CMPB 


<R3)+, #' 




BEQ 


2* 




DFC 


R3 




CALL 


ACRDEC 




MOVB 


CORUSR.. R2 




ADD 


eR4,R2 




MOVB 


Rl, eR2 




JMP 


RDCMD 



FAB OR T #MISSE 



; Set EDIT EDIT 

> 

SEED IT: BIC 
JMP 

t 

i Set trDIT TECO 

SETECO: BIC 
BIS 
JMP 



#*TECO f *KED, LSW5 ( R 1) 
RDCMD 



#*KED, LSW5<R1) 
#*TECO, LSW5<R1) 
RDCMD 



SET r-DIT KED/K52 



BEK52: 
SEKED: 



BIC 
B J S 
JiMP 



#*TECO, LSW5<R1) 
#*KED, LSW5(R1) 
RDCMD 



I 
< 
I 

i 
< 

i 

c 
« 

i 

€ 

i 
4 
« 

4 

< 

i 






I 
i 

f 
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I 
< 

€ 

4 
I 

< 
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58 
59 

61 
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63 
64 
65 
66 
67 
6S 
69 
70 
7.1 
72 
73 
74 
75 
76 
77 
70 
79 
SO 
01 
82 
B3 
84 
85 
86 
07 
SB 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 



002312 

002320 
002326 



002332 

002340 
002346 



002360 
002366 



002372 
002400 



002404 
002410 
002412 
002420 
002440 
002442 
002446 
002472 
002476 



002506 
002514 
002534 
002536 
002542 



052761 

042761 
0001 67 



052761 
042761 
000167 



052761 
042761 
000167 



042761 
000 1 6/ 



005767 
00 1 432 

\j O iS~ / C) i. 

010002 
052702 

000167 



010002 

042702 

000167 



0000000 

ooooooc 

0000000 



0000000 

ooooooc 

OOOOOOG 



0000000 
OOOOOOC 
OOOOOOG 



ooooooc 

OOOOOOG 



OOOOOOG 
OOOOOOG 



SET VCL FIRST 
STUCLF: 



OOOOOOG 



SET 
STUCLM 



BIS #*UCLCF, LSW7(Rl)iSet UCL-first flag 

BIC #'::*UCLCM!*UCLCL:>, LSW7<Ri) .: Clear call-middle & call-last flags 

JMP RDCHD 

UCL MIDDLE 



OOOOOOG 
OOOOOOG 



BIS 
BIG 
JMP 



SET UCL LAST 
STUCLL 



#*UCLCM. LSW7<R1 >; Set UCL-middle flag 

#<*UCLCF!$UCLCL>.- LSW7<R1) -Clear call-first & call-last flags 

RDCMD 



BIS #*UCLCL,LSW7<R1).: Set UCL-last flag 

BIC #<*UCLCF!*UCLCM>, LSW7(R1> i Clear call-first & call-middle flag 

JMP RDCMD 



SET UCL NONE 

OOOOOOG STUCLN: BIC 

^JMP 

SET KMON IND 



#<*UCLCF)$UCLCM!*UCLCL.>, LSW7(R1> ; Clear all UCL-call flags 

RDCMD 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



SETIND: 



INDSAV J IS IND AVAILABLE? 

1* i BR IF NOT 

#*INDDF, LSW5<R1 )i SAY WE SHOULD USE IND 

#XAREA, #<CFSTS~MONVEC> ; GET CURRENT COMMAND FILE FLAGS 

RO R*^ 

#CF*IND, R2 i SET IND FLAG 

#XAREA, #<;CFSTS-MONVEC>, R2i STORE UPDATED FLAGS 

RDCMD 



1*: 

> SET 
042761 OOOOOOG OOOOOOG RSTIND: 



OOOOOOG 
OOOOOOG 



TST 

BEG 

BIS 

. GVAL 

MOV 

BIS 

, PVAL 

JMP 

FAB CRT #NOIND 

KMON NO IND 

BIC #*INDDF, LSW5<R1)jCLEAR IND FLAG 

. GVAL ttXAREA, #<CFSTS MONVEO ; GET CURRENT COMMAND FILE FLAGS 

MOV RO, R2 

BIC #CF$IND>R2 ; RESET IND FLAG 

. PVAL #XAREA, #<CFSTS-MONVEC>, R2; STORE UPDATED FLAGS 

JMP RDCMD 



t 

€ 

€ 

I 
i 

i 

€ 

( 

4 
4 
4 
i 
4 
< 
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P-rom|<t 



4 








5 


002572 






6 








7 








f3 








9 


002572 


004767 


OOOOOOG 


10 
1 i 


002576 


012704 


OOOOOOG 


12 
13 








14 


002602 


111300 




15 


002604 


120027 


000047 


16 


002610 


ooi4o;j 




17 


002612 


120027 


000042 


IS 


002616 


001007 




19 








20 








21 








22 


002620 


004767 


OOOOOOG 


23 


002624 


010002 




24 


002626 


00 1 4 1 •/ 




25 


002630 


012703 


OOOOOOG 


26 


002634 


000403 




27 








28 








29 








30 


002636 


020302 




31 


002640 


103012 




32 

3;::) 

34 


002642 


160302 










35 








36 


002644 


020227 


OOOOOOG 


37 


002650 


101411 




38 


002652 






39 


002666 


1 1 2724 


000056 


40 


002672 


000402 




41 








42 








43 








44 


002674 


1 1 2324 




45 


002676 


077202 




46 


002700 


112714 


000200 


47 








48 








49 








50 


002704 


000167 


OOOOOOG 



. SBTTL 
i SET PROMPT string 

i 

SETPRT; 

i 

i Sl<ip any leading spaces in front of prompt string 



CALL SKPSPC 
MOV #KMPRMT, R4 



; Point to prompt holder in context block 

Determine if prompt string is enclosed in quotes 

j Get first char of prompt string 

■Is string enclosed in " ' " characters? 

j Br if yes 

i Houi about " " " ? 

j Br if not 



MOVE 


(R3), RO 


CMPB 


RO, #47 


BEO 


2* 


CMPB 


RO, #42 


BNE 


3* 



String is enclosed in quotes 



*: 



CALL 


ACRSTR 


MOV 


RO, R2 


BEQ 


6* 


MOV 


#BLKO, R3 


BR 


10* 



; Accrue the string 

i Get length of the string 

; Br if string is empty 

; Point to buffer with string 



String is not enclosed in quotes 



3*: 



CMP 


R3, R2 


BHIS 


6* 


St.JB 


R3, R2 



; Anything in prompt string? 

i Br if not 

i Determine length of prompt string 



Make sure string is not too long 



10^ 


5: 


CMP 


R2, #MXPRMT 






BLOS 


5* 






FERR 


#BADPMT 


6*: 




MOVE 


#'. , <R4) + 






BR 


8* 




Set 


prompt 


string 


5*: 




MOVB 


<R3)+, (R4)+ 






SOB 


R2, 5* 


S*: 




MOVB 


#200, <R4) 




F i n i 


shed 




9*: 




JMP 


RDCMD 



i Is string too long? 
i Br if ok 

i Prompt string too long 
i Set prompt to ". " 



; Move prompt string to KMDN context block 
; Terminate the prompt string 



; Go get next command 



f 
f 

4 
I 
< 
I 
4 
< 
I 
I 

i 
i 
I 
I 
I 

4 

4 
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Sy spaBSword 



4 








5 


002710 






6 








7 








8 








9 


002710 


004767 


0000000 


10 

-1 '1 








12 








13 


002714 


004767 


0000000 


14 








15 








16 








17 


002720 


020027 


000024 


18 


002724 


101404 




19 


002726 






20 








21 








22 








23 


002736 


012702 


OOOOOOG 


24 


002742 


012703 


OOOOOOG 


25 


002746 


1 1 2223 




26 


002750 


001376 




27 








28 








29 








30 


002752 


000167 


OOOOOOG 



. SBTTL St.|t;.f)a&!:>word 

SE'I SYSPASSWORD cooimand 
SETSYP : 

Usav must have SYSPRV privilege 

CALL CKSYPV jMske sure user has SYSPRV privilege 



A 



A" /" Ti I » jtn +- K «^ »^ -^ *•' •« t . t *^ •»% t-t J- J" ■.. -I v. /» 



CALL AC R TXT 

Make Bure it's not too long 

CMP RO, #20. 
BLDS 1* 
FABORT #EM*SPL 



Accrue the text string 



; Compare with max legal length 

; Br if ok 

j Password string is too long 



Move password to password buffer 



1*: MOV 


#BLKO, R2 


MOV 


#SYPSWD, R3 


2$: MOVB 


(R2)+, <R3) + 


BNE 


2* 


; F i n i s h e d 




JMP 


RDCMD 



J Point to accrued password 
iPoint to system buffer 
i Move password string 
; Loop if more to move 
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Lnust.drti.ip 

J. . SBTTL End startup 



3 i SEl EMDSTARTUP command 

4 > (Signal end of priviieped portion of start-up command file) 

5 i ' 

t> 0027r?6 042761 0000005 OOOOOOG SETESU: 13 1 C #*NOIN, LSW3(R1 ) ; Allow input to be accepted for line 

7 002764 042761 OOOOOOG OOOOOOG BIC #*SUCF, LSW9< Rl ) i Say not in start-up command file 

3 002772 000167 OOOOOOG ^MP RDCHD 



€ 

i 

i 

€ 



TSKSTi --■ Ksy heard SE'f" 
Window 
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1 1 2767 
005067 



012704 
004767 



3 
4 

5 002776 



7 

8 

9 002776 032767 
10 003004 001004 
1 i 003006 
12 
13 
14 

15 003016 

16 003024 

17 003032 

1 W 

19 
20 

21 003036 

22 003042 
23 
24 
25 

26 003046 
27 
28 
29 

30 003052 

31 003056 

32 003060 

33 003064 

34 003066 
35 
36 
37 

38 003070 

39 003074 

40 003076 
41 
42 
43 

44 003104 

45 003112 

46 005114 

47 003124 

48 003130 

49 003132 
50 
51 



. SBTTL . WiJidouj 
SET WINDOW command 
3ETWIN: 

User must be authorized to create global regions in order to use uiindouis 



OOOOOOG OOOOOOG 



000120 175046 
000020 175041 
174760 



001420' 
0000000 



BIT #P2*C0R, PRIVC2 
BNE 10$ 
F'ABQRT #EM*WCM 

Initialize some cells 

10*: M0V3 #80. , WlNMAK+4 
MOVE #16. , WINi-lAK+5 
CLR WINFLG 

Do command parsing 



ilOV 
CALL 



#WINHD>R4 
SCNOPS 



; May job create global regions? 

i Br if yes 

■ Not f^rivileqed to do this 



; Set window width to 80 columns 
.; Set default max scroll lines 
; No flags yet 



;Point to option driver list 
; Process all command options 



Now see which options were specified 



016705 174744 



12$: MOV WINFLG, R5 
Bee i f OFF was s p e c i f i f- d 



032705 
00 1 404 
012700 
104375 
000455 



032705 
001403 
1 1 2767 



032761 
00 1 004 

012700 

10437-/ 
103435 



000001 
000104' 



BIT 
UEQ 
MOV 
EMT 
BR 



#WFDEL, R5 
1* 
#WINDEL, RO 

375 
20* 



Pick up option flags 



i Was OFF option specified? 

; Br if not 

J Delete the window 



000010 

000204 174766 

OOOOOOC OOOOOOG 
000066 ' 



*: 



If WIDE option was specified, set window width to 132 columns 

BIT #WF132, R5 ; Was WIDE option specified? 

BEQ 2* i Br if not 

MOVB #132. , WINMAKi-4 J Set window width to 132 columns 

Try to make the window 



?*: 



BIT 



#<VT 1 00 ! VT200 i VT52>, LTRMTP < R 1 ) 5 VT 100, VT200 or VT52 



13*: 



BNE 13* 

FABORT #EM*SLT 

MOV #WINMAK.. RO 

EMT 375 

BCS 30* 

Select the window 



Br if yes 

Invalid terminal type 

Point to window-make arg block 

Try to create the window 

Br if error on window creation 



53 003134 

54 003140 



012700 

104375 



000100' 



MOV 
EMT 



#WINMAP, RO 
375 



DO 



> EMT to map to the window 
If WIDE was specified, send string to put term in 132 col mode 



I 
I 

I 
I 

i 

i 

€ 
i 
€ 

i 

i 

4 

I 
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I 

4 

I 



5S 


003142 


03270r; 


000010 


59 


003116 


(_•..;) 1 i"! o; ( 




60 


003 ISO 






6.1 








62 








63 








64 


003156 


032705 


000020 


65 


003162 


001403 




66 


003164 






67 








6S 








69 








70 


003172 


032705 


000002 


71 


003176 


001403 






003200 






73 








74 








7S 








76 


003206 


032705 


000004 


77 


003212 


001403 




78 


0032 1 4 






79 








SO 








81 








82 


003222 


000167 


OOOOOOG 


83 








84 








85 








86 


003226 


1 1 3702 


OOOOOOG 


87 


003232 


020227 


000004 


as 


003236 


103401 




89 


003240 


00 5002 




90 


003242 


006302 




91 


003244 


016202 


003256 ' 


92 


003250 






93 








94 








95 








96 


003256 


OOOOOOG 




97 


003260 


OOOOOOG 




98 


003262 


OOOOOOG 




99 


003264 


OOOOOOG 




100 




000004 





.err #wfi32. R5 

BEQ 3* 

, PRINT #TC132 



Was WIDE option specified? 

Br if not 

Put terminal in 132 column mode 



.Tf NARROW litafi specifiod, sr-nd strinfl to put term in 80 col mode 



3$: 



.BIT #WF80, R5 
BEO 4* 
.PRINT #TC80 



T * «P^;!.: Dan- ,., .^^ ,^ „ ,.,- •; i: -; ,-. ,i 



4*: BIT #WFREV, R5 
BEO 5* 
. PRINT #TCREV 



; Was NARROW option specified? 

; Br if not 

i Put terminal in 80 column mode 

:i;t terminal in reverse video mode 



Was REVERSE option specified? 

Br if not 

Put terminal in reverse video mode 



J If NORMAL was specified* put terminal in normal video mode 



5*: BIT #WFNORM. R5 
BEQ 20* 
.PRINT #TCNORM 



; Was NORMAL option specified? 

i Br if not 

; Put terminal in normal video mode 



; F i n i & h e d 

20*: JMP RDCMD 

> Error occurred luhich making windouj 



30*: 



31*: 



MOVB 


@#ERRLOC, R2 


CMP 


R2, #MAXWFM 


Bt,..0 


31* 


CLR 


R2 


ASL 


R2 


MOV 


WEM<R2),R2 



FAB OR T R2 
Table of windouj-creat:! on error meBsages 

WEM: . WORD EM*WCO 

. WORD EM*WC1 

. WORD EM*WC2 

. WORD EM*WC3 

MAX WEM r^ C. -WEM>./i' 



Get EMT error code 

Is it too large? 

Br if not 

Use message for error if too big 

Get word table index 

Get address of error message 

Print the error message 



< 
i 
i 
i 

i 
< 
4 

I 

I 
t 
i 
t 
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4 


003266 


1 1 46 




6 








7 








S 


003270 


004767 


OOOOOOG 


9 








10 








1 1 








12 


003274 


1 1 1 67 


174572 


13 








1'1 








1'5 








16 


003300 


012601 




17 


003302 


000207 




IS 








19 








20 








21 








22 








23 


003304 


010146 




iZA- 








25 








26 








27 


003306 


004767 


OOOOOOG 


28 


003312 


121327 


000075 


29 


003316 


001005 




30 








31 








32 








33 


003320 


004767 


OOOOOOG 


34 


003324 


020127 


000177 


35 


003330 


101402 




36 


003332 


012701 


177777 


37 








38 








39 








40 


003336 


110167 


174531 


41 








42 








43 








44 


003342 


01260.1 




45 


003344 


000207 




46 








47 








43 








49 








50 


003346 


105067 


174521 


51 


003352 


000207 




52 








53 








54 








55 








56 


003354 


051467 


174436 


57 


003360 


000207 





Pro {•£?■.; 5 CDLUMN--n option of GET WINDOW command 

WINCOL: MOV Rl.. -(SP) 

Accrue the column parameter value 

CALL AC R DEC 

Store into EMT argumt?nt bluck 

MOVB Rl,WINMAK+4 ; Set column width in EMT arg block 
F i n i B h e d 



MOV <SP)+, Rl 
RETURN 



Process SCR0LLC=n3 option which specifies the maximum number 
of Eicroll lines. 

WINSCR: MOV R1,~(SP) 

If no parameter is specifiedi allow unlimited scrolling 



CALL 


SKPSPC 


CMPB 


(R3),if'^ 


BNE 


3$ 



Accrue the parameter value 



1*: 



3$: 



CALL 


AC R DEC 


CMP 


Rl, #127. 


.OLOS 


2* 


MOV 


#-1, Rl 



; Sk ip over spaces 
i Value specified? 
} If not> allow unlimited 



j Accrue decimal parameter 

.: Asked for more than max? 

ilf notj set the requested number 

jAllow unlimited scrolling 



Store value into EMT arjjument block 

MOVB Rl,WINMAK+5 s Set max scroll lines 

F i n i E h e d 

MOV <SP)+, Rl 
RETURN 



SET WINDQW/NOSCROLL 

WINNOS: CLRB WINMAK+5 
RETURN 



;0 scroll lines -=■'.> No scrolling 



Process; a SET WINDOW option that just sets a flag bit 



H I NB IT: B 1 3 < R4 ) , W I NFLG 
RETURN 



.; Get appropriate flag bit 



TSKSTl 
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3 
4 








5 


003362 






6 








7 

e 

9 








003362 


012704 


001534' 


10 
1 1 

12 
13 
14 
If) 
16 


003366 


004767 


OOOOOOG 


003372 


000167 


0000000 








17 








IS 


003376 


010246 




19 


003400 


004767 


0000000 


20 


003404 


004767 


OOOOOOG 


21 


003410 


122327 


000072 


22 


003414 


001401 




23 


003416 


005303 




24 


003420 


016767 


OOOOOOG OOOOOOG 


25 


003426 


012602 




26 
27 


003430 


000207 




29 
30 


003432 


010446 




31 


003434 


004767 


OOOOOOG 


32 


003440 


012704 


001610' 


33 


003444 


004767 


OOOOOOG 


34 


003450 


103406 




35 


003452 


111467 


OOOOOOG 


36 


003^156 


016467 


000002 OOOOOOG 


37 


003464 


000417 




38 


003466 


00 5704 




39 


003470 


001407 




40 


003472 






41 


003506 


000406 




42 


003510 






43 








44 








45 








46 


003524 


012604 




47 


003526 


000207 




40 








49 








50 








51 


003530 


052767 


OOOOOOG OOOOOOG 


52 


003536 


000207 




53 








54 








55 








56 


003540 


042767 


OOOOOOG OOOOOOG 


57 


003546 


0n020> 





. SBTTL . !'r iiii-wintlow 
SET PR! N T W I NDOW/ DE V I Ct" d e> v i t. e / TYPE^ type 
SETPRO: 

ProceBs qualifiers sp<?cif-ied with command 



MOV 
CALL 



#PRSHD, R4 
SCNOPS 



; Point to option driver list 
iF^rocess all of the command options 



F i n i shed 

JMP RDCMD 
Process the /DEVICE=device qualifer 



PRSDEV: MOV 
CALL 
CALL 
CMPB 
BEO 
DEC 

1*: MOV 
MOV 
RETURN 



R2, -<SP) 

CHKEO 

GTRD50 

(R3)+, #': 

1* 

R3 

R50BUF. JPWDEV 

(SP)+-, R2 



.; Equal sign should follow qualifier name 

> Accrue the device name 

iColon specified with device name? 

i Br if yes 

; Backup pointer 

; Store into job context cell 



Pro c ess the /TYPE=t y p t» q ua 1 i f i er 



PRSTYP: 


MOV 


R4. -(SP) 






CALL 


CHKEO 






MOV 


#PWTHD, R4 






CALL 


SEARCH 






BCS 


1* 






MOVB 


(R4). viPWTYP 






MOV 


2<R4), JPWFLG 






BR 


9* 


1*: 




TST 


R4 






BEG 


2* 






FERR 


#EM*PTA 






BR 


9* 


2*: 




FERR 


#EM*PTU 


> 


Fini 


shed 




i 

9*: 




MOV 

RETURN 


(SP)+, R4 



iMake sure we have an equal sign 

.: Point to table of printer types 

j Accrue and look up printer name 

> Br if invalid printer type 

i Set printer type code 

i Set printer attribute flags 

i Printer unrecognized or ambigious? 
; Br if not recognized 
j Printer type ambigious 

; Printer type unrecognized 



Process the /LETTEROUALl'l Y qualifier 



PRSLET: BIS 

RETURN 



#PA*LET, JPWFLG ; Set letter-quality flag 

P r D t e s s the / DR AFT q u h 1 i i-ier 



PRSDRF: BIC #PA«LET, v.iPWFLG ; Clear letter-quality flag 

RFi'URN 
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50 






5V 






60 






61 


003550 


052767 


62 


003556 


000207 


63 






64 






65 






66 


003560 


042767 


67 


003566 


000207 


69 






70 






71 


003570 


042767 


72 


003576 


000207 


73 






74 






75 






76 


003600 


052767 


77 


003606 


000207 


78 






79 






80 






81 


003610 


116701 


82 


003614 


052761 


83 


003622 


000207 


84 






85 






86 






87 


003624 


116701 


SS 


003630 


042761 


89 


003636 


000207 



OOOOOOG 0000000 



0000000 OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



f'rocPBS the /UELL qualif=ier 
PRSBEL: BIS #PA*BEL, JPWFLG > Set bell flag 

RfrruRN 

Proc(?!5B the /NOBELL qualifier 

PRSNBL: BIC #PA*BEL> JPWFLG ; Clear bell flag 
RETURN 

i Process the /WIDTH qualif-ier 

PRSWID: BIC #PA«NWD.. JPWFLG i Clear nowidth flag 
RETURN 

ProcesE the /NOWIDTH qualifier 

PRSNWD: BIS #PA*NWD. -JPWFLG ; Set nouidth flag 
RETURN 

Procer.5 the /KEYPRINT qualifier 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 



PRSKEY: MOVB 
BIS 
RETURN 

Pro{ esE the 

PRSNKY: MOVB 
BIC 
RETURN 



CORUSR, RJ iGet job index number 
#*PWKEY. LSWIKRI) ; Set KEYPRINT flag 



/NOKEYPRINT qual i f i er 

CORUSR.RJ ; Get job index number 
#«PWKEY, LSWIKRI) ; Clear KEYPRINT flag 
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,1 

2 








3 
4 








5 


003640 


004767 


OOOOOOG 


6 


003644 


020127 


ooooooe 


7 


003650 


101425 




8 


003652 






9 


003666 


012705 


000000 


10 


003672 


004767 


OOOOOOG 


1 ) 


003676 






12 


003704 


116705 


0000000 


13 


003710 


004767 


OOOOOOG 


14 


003714 






15 


003722 


000427 




16 


003724 


120167 


OOOOOOG 


17 


003730 


101417 




IS 


003732 






19 


003746 


116705 


OOOOOOG 


20 


003752 


004767 


OOOOOOG 


21 


003756 






22 


003764 


116701 


OOOOOOG 


23 


003770 


012700 


000062 ' 


24 


003774 


010160 


000002 


25 


004000 


104375 




26 


004002 


000167 


OOOOOOG 



3BTTL 



Pfi fir i tq 



; SET 


PRIORITY 


value 


i 
SETPR I : 


CALL 


ACRDEC 




CMP 


Rl. #MAXPRI 




BLOS 


3* 


5^: 


FERR 


#BADPRI 




MOV 


#0, R5 




CALL 


PRTDEC 




OD Th.IT 


nT-m-v-r 

■rr 1 1-* 1 /% 1 




MOVE 


MXJPR1,R5 




CALL 


PRTDEC : 




. PRINT 


#CRLF 




BR 


9* 


3*: 


CMPB 


R1,MXJPR1 




BLOS 


2* 




FERR 


#HIPRI 




MOVE 


MXJPRI,R5 




CALL 


PRTDEC 




. PRINT 


ttCRLF 




MOVE 


MXJPRI, Rl 


2*: 


MOV 


#PRIEMT» RO 




MOV 


R 1 , 2 ( RO ) 




EMT 


375 


9*: 


xJMP 


RDCMD 



; Accrue decimal value 
; Is priority too large? 
i Br if ok 

J Invalid priority value 
.; Print minimum priority 

I I i .Ik t I V *JV 

J Print maximum priority 

> End print 1 ine 

; Does it exceed max allowed for job? 

J Br if ok 

^Priority is too high 

; Get max allowed value 

;Display max priority 

i Get max allowed for job 

; Point to EMT arg block to set job priority 

j Store prio value into EMT arg block 

i Set job priority 

.; Go get next command 



I 
< 
I 
I 
I 

i 
i 

€ 
€ 
f 
4 
I 
4 
4 

4 
t 
t 
I 
( 



\ 
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Pao^B 



SBTTL. 



Maxpr i ori ty 



I 

€ 



3 
4 

5 


004006 


004767 


OOOOOOG 


t> 


004012 


020127 


0000000 


7 


004016 


10142;T> 




S 


004020 






9 


004034 


005000 




10 


004036 


004767 


0000000 


11 


004042 






12 


004050 


01 270 D 


000000(3 


13 


004054 


004767 


000000<3 


14 


004060 






15 


004066 


116701 


OOOOOOG 


16 


004072 


120167 


ooooooe 


17 


004076 


101404 




IS 


004100 






19 


004110 


110167 


0000000 


20 


004114 


1 1 6702 


OOOOOOG 


21 


004120 


126201 


OOOOOOG 


22 


004124 


1 1 40'.7 




23 


004126 


012700 


000062 ' 


24 


004132 


010160 


000002 


2f5 


004136 


104375 




26 


00<1140 


000167 


OOOOOOG 



i SET 


HAXPRIORITY walu^ 


SETMPR; 


CALL 


ACRDEC 




CMP 


Rl, #MAXPRI 




13L0S 


1$ 




FERR 


#BADPRI 




CLR 


RO 




CALL 


PRTDEC 




. PRINT 


#TOTXT 




MOV 


#MAXPRI, R5 




CALL 


PRTDEC 




. PRINT 


ttCRLF 




MOVE 


VPRIDF, Ri 


1$: 


CMPB 


Rl. MXJPRi 




BLOS 


2* 




FABORT 


#EM«CIP 


2*: 


MOVB 


Rl. MXJPRI 




MOVE 


CORUSR, R2 




CMPB 


LBSPRI(R2) 




BLOS 


3* 




MOV 


#PRIEMT,RO 




MOV 


R1,2<R0) 




EMT 


375 


3$: 


.JMP 


RDCMD 



Rl 



Accrue decimal value 
Larger than max allowed? 
Br if ok 

Invalid priority value 
Get minimum value 
Print minimum value 



D -r« -i ¥-1 'h 



to 



Get maximum value 
Print it 

Set to default value 

Is he attempting to increase the max pri? 

Br if not 

Cannot increase maxpri 

Set maximum job priority 

Get current job index number 

Is current priority too high? 

Br if ok 

Point to EMT arg block to set 

Set new priority for job 

; Finished 



prio 
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.1. 



SBTTL 



hrvoT 



3 
4 








5 


004144 


111467 


OOOOOOG 


6 


004150 


111404 




7 


004152 


042704 


177400 


S 


004156 


052704 


001400 


9 


004162 






10 
1 :i 


004206 


000167 


OOOOOOG 


12 
13 








14 








ib 








16 


004212 


004767 


OOOOOOG 


17 


004216 


1 1 2767 


177777 


IS 


004224 


005067 


OOOOOOG 


19 


004230 


000167 


OOOOOOG 


20 








21 








22 








23 








24 


004234 


004767 


OOOOOOG 


25 


004240 


105067 


OOOOOOG 


26 


004244 


000167 


OOOOOOG 



ROUTINE TO SET ERROR SEVER ITV ABORT LEVEL 



SETSEV: 



MOVE 

liOVB 

DIG 

BIS 

. PVAL 

JMP 



SET ERROR SEVERITY FOR USER 

GET ERROR SEVERITY LEVEL 

CLEAR HIGH ORDER BYTE 

SET COMMAND FILE NESTING DEPTH 
#XAREA, #<CFABLV -MONVEO, R4 ; SET ABORT LEVEL IN SIMUL RHON 
RDCMD 



@R4, ERRSEV 
©R4, R4 
#177400. R4 
#3*400. R4 



. SBTTL . Shutdown 
Set the flag that says a tiystem shutdown is being done. 



SETSHT: CALL 
OOOOOOG MOVB 

CLR 
JMP 



CKPRIV 
#-1. STPFLG 
BOTDEV 
RDCMD 



; User must have privilege 

i Say system shutdown taking place 

; Reboot from system disk 



Clfjar the flag that sayB a shutdown is taking place. 



SETNSH: CALL 
CLRB 
JMP 



CKPRIV 
STPFLG 
RDCMD 



; User must have privilege 

; Say we are not doing a shutdown 



TSKSTl 



- K I? y b a r 
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c 

€ 
€ 



3 
4 

5 










; Pro< 


ess the 


SET LOG commamd. 


004250 








SETLOO: 






V.) 

7 

e 

9 










; Acer 


>ue option keyujord 


004250 


012704 


002270 ' 






MOV 


#STLGHD, R4 


10 


004254 


004767 


OOOOOOG 






CALL 


SCNOPS 


1 1 


004260 


000167 


0000000 






JMP 


RDCMD 


12 
















13 










i SET 


LOG CLOSE 


14 
















15 


004264 


004767 


OOOOOOG 




STLGCL: 


CALL 


LOGCLS 


16 


004270 


000207 








f^ETURN 




17 
















18 










J SET 


LOG CLEAN 


19 
















20 


004272 


010346 






STLGCN: 


MOV 


R3, -(SP) 


21 


004274 


032767 


OOOOOOG 


OOOOOOG 




BIT 


#LF*OPN. LOGFLG 


22 


004302 


001427 








BEQ 


9* 


23 


004304 


012767 


OOOOOOG 


OOOOOOG 




MOV 


#LOGBUF. LOGPTR 


24 


004312 


005067 


OOOOOOG 






CLR 


LOGBLK 


25 


004316 


012703 


OOOOOOG 






MOV 


#LOeCHN, R3 


26 


004322 


016700 


OOOOOOG 






MOV 


CXTRMN. RO 


27 


004326 


062700 


OOOOOOG 






ADD 


#R«CHN. RO 


28 


004332 


020327 


000021 






CMP 


R3. #17. 


29 


004336 


103404 








BLO 


1* 


30 


004340 


162703 


000021 






SUB 


#17. .. R3 


31 


004344 


062700 


ooooooc 






ADD 


#R*XCHN -R*CHN, RO 


32 


004350 


070327 


OOOOOOG 




1*: 


MUL 


#CHNSIZ>R3 


33 


004354 


060003 








ADD 


RO, R3 


34 


004356 


005063 


OOOOOOG 






CLR 


C. USED<R3) 


35 


004362 


012603 






9*: 


MOV 


<SP)+, R3 


36 


004364 


000207 








RETURN 




37 
















38 










i SET 


LOG WRITE 


39 
















40 


004366 


052767 


OOOOOOG 


OOOOOOG 


STLGWR : 


BIS 


#LF«WRT, LOGPLG 


41 
42 
43 


004374 


000207 








RETURN 












; SET 


LOG WOWRITE 


44 
















45 


004376 


042767 


OOOOOOG 


OOOOOOG 


STLGNW; 


BIC 


#LF*WRT> LOGFLG 


46 


004404 


000207 








RETURN 




47 
















48 
49 
50 










; SET 


LOG INPUT 


004406 


042767 


OOOOOOG 


OOOOOOG 


STLGIN: 


BIC 


#LF*OUT, LOGFLG 


51 


004414 


052767 


OOOOOOG 


OOOOOOG 




BIS 


#LF*IN, LOGFIG 


52 

53 
54 


004^122 


000207 








RETURN 












■> SET 


LOG OUTPUT 


56 


00442-'1 


042767 


OOOOOOG 


OOOOOOG 


STLGOT: 


BIC 


#LF*IN, LOGFLG 


57 


004432 


052767 


OOOOOOG 


OOOOOOG 




BIS 


#LF«OUT.. LOGFLG 



Point to keyword table 
Process command qualifiers 
Finished with command 



Close the log file 



Is the log file open now? 

Br if not 

Reset buffer pointer 

Start writing at block 

Get channel # used for log file 

Point to simulated RMON area 

Point to channel block for channel O 

Is this channel in extended chan area? 

Br if not 

Get channel # relative to extended channels 

Point to 1st extended channel block 

Get offset to block of interest 

Point to our channel block 

Say no data has been written to file 



Enable writes to log file 



; Di sab le log file 



Clear output-logging flag 
Set input-logging flag 



Clear input-logging flag 
Set output-logging flag 
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58 004440 00020V i^<ETURN 

59 ; 

60 ; SET 1.00 ALL. 

61 ; 

62 004442 052767 OOOOOOC 0000000 STLGAL: BIS #LF«IN ! LF*OUT, LOGFLG i Log both input and output 

63 004450 000207 RETURN 



TSKSTl 



— Keyboard SET 
Log 



3 
4 
5 
6 
7 
8 
9 
10 
1 i 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004452 
004454 
004456 
004462 
004466 
004472 
004474 



004476 
004502 
004506 
004512 



004514 
004520 



004524 
004530 
004534 



004536 
004564 
004566 



004576 
004602 
004606 
004610 
004614 
004616 
004622 
004626 
004632 
004634 
004636 
004644 



004652 
004656 



010446 
010546 
004767 
004767 
122327 
001401 
005303 



012704 
012705 
004767 
103475 



012705 
004767 



1 6700 
004767 
1 03464 



103004 



016705 
004767 
103421 
020467 
001407 
110467 
1 1 0067 
005067 
000407 
006300 
016067 



012700 

104375 
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SET LOG FILE^=f ile-Bptn: 



0000000 
0000000 
000075 



OOOOOOG 
000001 

ooooooe 



0000000 
OOOOOOG 



OOOOOOG 
OOOOOOG 



STLGFL: MOV 
MOV 
CALL 
CALL 
CMPB 
BEQ 
DEC 



R4, -(SP) 

R5, -(UP) 

LOGCLS 

SKPSPC 

<R3)+, #' = 

1* 

R3 



I 
I 
I 



Accrue the file spec 



1*: 



HOV 


#R50L0G, R4 


MOV 


#1,R5 


CALL 


ACRFIL 


BCS 


10* 



jClose current log file 

jSfeip over spaces 

; See if equal sign was specified 

> Br if yes (skip over it) 

i Point back to first char of file spec 



i Point to default extension <"LOG") 
;Tell ACRFIL this is an output file 
; Accrue the file spec 
j Br if invalid file spec 



Translate logical devict? name to physical 



MOV #FILNAM, R5 
CALL LOGASN 



j Point to file name buffer 

; Perform logical name translation 



Don't allow log output to go to "TT: " 



MOV 
CALL 



FILNAM, RO 
CHKTTD 

10* 



Get the log device name 
Is the log device TT? 
Br if yes — Error 



Try to open the file 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
00000 IG 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



. ENTER #XAREA, #1 OGCHN, #FILNAM, FILNAM+8. 
BCC 2* ; Br if enter ok 

FABORT #BDLGOP > Cannot open log file 

Save information about the log file physical device 



*: 



4*: 



Get log file device name 

Convert to dev # and unit # 

Br if invalid device 

Is log file on a logical disk? 

Br if yes 

Save log file device # 

Save log file unit # 

Say not on a logical disk 



j Convert unit # to word table index 
LDPDEV<RO),LDGDVU i Save physical device and unit # 
LDBASE(RO),LDGBAS i Save base block # of logical disk 



MOV 


FILNAM, R5 


CALL 


CHKDEV 


BCS 


3* 


CMP 


R4, LDDEVX 


BEG 


4* 


MDVB 


R4, LOGDVU 


MDVB 


RO, LOGDVU+1 


CLR 


LOGBAS 


BR 


3* 


ASL 


RO 


MDV 


LDPDEV<RO), 


MOV 


LDBASE(RO), 



Set "hold" mode for spooled log files 



OOOOOOG 



3*: MOV #SPLHLA, RO 
EMT 375 

Initialise the log file 



j Point to emt argument block 
i Set hold mode for log file 



f 



i 
i 
i 
i 
c 

< 

i 
i 
i 
i 

i 
i 
i 
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58 004660 052767 OOOOOOC OOOOOOG 

59 004666 012767 OOOOOOG OOOOOOG 

60 004674 00 5067 OOOOOOG 
61 

62 
63 

64 004700 012605 

65 004702 012604 

66 004704 000207 
67 

69 

70 004706 



BIS 
MOV 
CLR 

Finish a d 



MOV 
MOV 
RE'TURN 



#<LF*0PNfLF1iWRT!LF$IN!LF*0UT:>> LOGFLG ; Say log file is open 

#LOGBUF, LOGPTR ;Init pointer to log buffer 
LOGBLK J Write to block 



<SP)+, R5 
<SP)+, R4 






10*: 



FABORT #BDFNAM 



; Invalid file name 



TSKSTi • 


— Keyboard SET 


Command 




Logo f f 






1 
P. 








3 








4 








5 








CJ 


004716 






7 








S 








9 








10 


004716 


012704 


002334 ' 


1 1 


004722 


004767 


OOOOOOG 


12 


004726 


103002 




13 


004730 


000167 


173512 


14 








15 








16 








17 


004734 


000134 




IS 








19 








20 








21 


004736 


032761 


OOOOOOG 


22 


004744 


001010 




23 


004746 


032767 


0000000 


24 


004754 


001004 




25 


004756 






26 








27 








28 








29 


004766 


004767 


OOOOOOG 


30 


004772 


122327 


000075 


31 


004776 


001401 




32 


005000 


005303 




33 


005002 


012704 


OOOOOOG 


34 


005006 


005005 




35 


005010 


004767 


OOOOOOG 


36 


005014 


103416 




37 








38 








39 








40 


005016 


012705 


OOOOOOG 


41 


005022 


004767 


OOOOOOG 


42 








43 








44 








45 


005026 


012705 


OOOOOOG 


46 


005032 


012704 


OOOOOOG 


47 


005036 


012700 


000004 


48 


005042 


012524 




49 


005044 


077002 




50 








5.1 








52 








53 
54 

55 


005046 


000167 


OOOOOOG 








56 








57 


005052 
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^BTTL 



I o tj o f f 



ProceBB the SET LOGOFF t. ummand. 

ThiE command is used to declare a logoff command file. 

SETLOF: 

Accrue option keyword 

; Point to keyword table 
• Identify k e y usot d 
i Br if identified keyuiord 
i Inval id option 

Enter keyword procesEing routine 

1*: JMP @(R4)+ ; Enter keyword processing routine 

SET LOGOFF FILE=f i 1 e-t^p t-c 



MOV 


#STLOHD, R4 


C.Al 1 


CJFAPrM 


BCC 


1* 


vJMP 


BDSO 



OOOOOOG STLOFL: BET 

BNE 

OOOOOOG BIT 

BNE 1* 
FABORT #EM*NSF 



#*SUCF, LSW9<R1 ) ;Are we in a startup command file? 

1* J Br i f yes 

#PO*SYS.. PRIVCO i Do we have SYSPRV privilege? 

; Br if yes 

j Not in a startup command file 



1*: 



3*: 



Accrue the file spec 

iSkip over spaces 

.; Should have equal sign 

; Br if yes <skip over it) 

i Point to 1st char of file name 

i Set "COM" as default extension 

;Tell ACRFIL this is an input file 

; Accrue the file spec 

i Br if invalid file spec 

Translate logical file device name to physical device 



CALL 


SKPSPC 


CMPB 


(R3)+, #' = 


BEQ 


3« 


DEC 


R3 


MOV 


#R50C0M, R4 


CLR 


R5 


CALL 


ACRFIL 


BCS 


10* 



MOV #FILNAM, R5 
CALL LOGASN 



j Point to file spec 

; Perform any logical device assignment 



Move file spec to job coritext block 



2*: 



MOV 
MOV 
MOV 
MOV 
SOB 



#FILNAM. R5 
#L0FSPC,R4 
#4, RO 

(R5)+, <H4) + 
RO, 2* 



Point to file spec 
Point to job context area 
Get # words to move 
i Move file spec to job context block 



F i f I i & h e d 

JMP RDCMD 

Invalid file spec 
10*: FABORT #BDFNAM 



Invalid file name 



c 
I 
i 
f 
i 

i 
c 
i 

€ 

< 
f 

« 

i 



€ 



005062 



.1 2704 
004767 
000167 



0.1 0446 
0,1054,''> 



TSKSTl — Keybc.arcl SET 
S u b p r o L e '.i b 



.t 
2 
3 
4 

:-/ 

6 
7 
B 
9 
10 

1 1 005062 

12 005066 

13 005072 

1 4 
15 
16 

17 005076 

15 005100 
19 

20 
21 

22 005102 

23 005110 
005112 
005120 

26 005122 

27 

28 

29 

30 005132 

31 005136 

32 005142 

33 005144 
34 

35 
36 

37 005154 

38 005160 

39 005164 

40 005166 
41 

42 
43 

44 005170 

45 005172 

46 005174 
47 

48 
49 

50 005176 
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24 
25 



001010 
032767 
001004 



004767 
020027 
101404 



012705 
012704 
112524 
001376 



012605 
012604 
000207 



. SBTTL 



Hiibproc PSB 



002344 ' 
0000000 
OOOOOOG 



ProceBB the SET SUBPROCESS command. 

ThiB command is used to declare a command file to be executed uhen 

a Gub process (virtual line.) is initiated. 

SETSBP: 

Accrue option keyword 

= Point to keyword table 
^Process the options 

SET SUBPROCESS/FILE^-Pi le-&p6'c 



MOV 


#SBPHD. R4 


CALL 


SCNQPS 


JMP 


RDCMD 



SBPFIL: MOV 
MOV 



R4, -(SP) 
R5, -<GP) 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000017 



This command is only legal within a start-up command -file 

BIT #*SUCF, LSW9<R1 ) ; Are we in a startup command file? 

BNE 1* j Br if yes 

BIT #PO*SYS> PRIVCO > Do we have SYSPRV privilege? 

BME 1* .; Br if yes 

FAB OR T #EM*NSF 

Accrue the file spfc 

1*: CALL ACRTXT 

CMP RO, #111. 

BLOS 3* 

FABORT #EM*STL 



J Not in a startup command file 



i Accrue the file string 

; Compare with max legal length 

■> Br if ok 

iFile spec is too long 



Move file spec to job context block 



OOOOOOG 
OOOOOOG 



3*: 



MOV 


#BLKO, R5 


MOV 


#SBPSUF, R4 


MOVB 


(R5)+, <R4)4 


BME 


2* 


F i n i G h e d 




MDV 


<SP)+, R5 


MOV 


(SP.)+.. R4 


RETURN 





iPoint to file spec 

; Point to job context area 

; Move file spec to job context block 

iLoop till all moved 



Invalid file spec 
1 0* : FAB OR T #B BFNAM 



.; Invalid file name 



\ 



TSKSTi — Keyboard SE'i 



Command MACRO V05. 04 Monday 2i -Dec-87 12: bV Page 2S 



;>BTTL 



Km on 



3 
4 
5 
6 
7 005206 

a 

9 

.1. 

t t 00520A 

12 005212 

13 005214 

14 005216 

15 005222 
16 

17 
18 

19 005224 

20 005230 

21 005232 

22 005236 

23 005240 

24 005244 

25 005246 

26 005252 
27 

28 
27 

30 005254 

31 005260 
32 

33 
34 

35 005264 

36 005270 

37 005274 

38 005276 
39 

40 
41 

42 005300 

43 005320 

44 005322 

45 005330 

46 005336 
47 

4P, 

4'/ 

50 

51 005342 

5;:> 

53 

54 

55 005352 

56 

57 



004767 
105713 
001417 

122327 
001053 



012704 
005005 
004767 
103451 
012704 
010405 
004767 
000404 



012704 

016714 



012700 
012705 
012425 
077002 



OOOOOOG 



00007J 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



000004 
OOOOOOG 



103410 

052761 
000167 



ProcesG the SET KMON USEF< command. 

Verify that a user~uri tten command interface program exists and if so* 

set a flag saying to ubp it for this job. 



BETUKH: 

See if user specified a file spec 



CALL 


SKPSPC 


TSTB 


(R3) 


BE« 


2* 


CMPB 


(R3)+, #'r 


BWE 


3* 



Accrue the user file lu 



iHtJ? 



MOV 


#R50SAV>R4 


CLR 


R5 


CALL 


ACRFIL 


BCS 


4* 


MOV 


#FILNAM.. R4 


MOV 


R4, R5 


CALL 


LOOASN 


BR 


6* 



.;Skip over any spaces 

; Anything specified follouiing "USER"? 

j Br if not 

; Equal signT' 

; Ettot if not 



i Set default extension 

;Tell ACRFIL this is an input file 

jAccrue the file spec 

i Br if invalid file spec 

iF'oint to area with file spec 

i Convert logical device name to physical 



User did not specify a file name. Default to "SY: UKMON. SAV". 



2$: 



MOV #UCIDEF, R4 
MOV SYNAME, <R4) 



; Point to default file spec 
; Set physical SY device 



Mov£? file spec to UCIST^C area in context block 



6*: 


i-lOV 


#4, RO 




MOV 


#UCISPC,R5 


5*: 


MOV 


<R4)+, (r;:7) + 




SOB 


RO, 5* 



OOOOOOG OOOOOOG 
OOOOOOG 



If: 



3ie: 



i Get # words to move 

; Store UCI file spec here 

; Move file spec to job context block 



Try to lookup the specif'ied file 

.LOOKUP #XAREA> #1, #UCISPCi Try to find command processor program 

BCS 1* ; Br i f not available 

.CLOSE #1 ; Close the program file 

BIS #*UKMON. LSW7<R1 ); Set flag saying to use user-written program 

JMP RDCMD 

Error processing 

Cannot find specified file 

FABORT #EM*NUK 

Invalid syntax 

FABORT #missi;:q 

Inval id file spec 



; User-written command processor not available 
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Km on 
59 005362 4*: F ABORT #BDFNAH 



I 
I 
( 
I 



f 

I 
< 
I 

« 

c 

4 
€ 

1 
i 
< 

I 
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Krnon 



3 
4 

5 005372 

6 005376 

7 005416 
B 

9 
10 

1 1 005420 

12 005456 

13 005462 

14 005466 

15 005472 

16 005476 

17 005502 

18 005506 

19 005512 

20 005514 

21 005516 

22 005520 

23 005524 

24 005530 

25 005534 

26 005542 
27 

28 

29 

30 005550 

31 

32 

34 005570 

35 005576 
36 

37 

39 005616 

40 

41 

42 

43 005620 

44 

46 

46 

47 

43 

49 005630 

50 005634 

51 005654 

52 005656 

53 005676 

54 005702 



004767 
103500 



0000000 



016700 
062700 
042700 
010067 
162700 
010067 
062700 
000241 
006000 
000300 
042700 
062700 
010067 
016767 
016767 



0000500 

000003 

000001 

OOOOOOG 

0000000 

OOOOOOG 

000777 



177400 
OOOOOOG 
OOOOOOG 

0000420 OOOOOOG 
0000400 OOOOOOG 



Process the SET KHON NEW command. 
13ei)in to use a new version of 1 SKMON. 

SETKNW: CALL CKSYPV ; Must have SYSPRV privilege 

. LOOKUP #XAREA, #1, #KMNNAM ; TRY TO LOOKUP SY: TSKMON. SAV 
BCS 1$ iBR IF NOT THERE 

Get information about TGKMON out of block O of file 

. READW #XAREA> #1. #t!LKO. #256. .• #0 .: READ IN BLOCK 

GET TOP ADDRESS OF KMON 
BOUND UP TO NEXT WORD 
FORCE EVEN 

BASE ADDRESS OF KMON 
TOP OF TSKMON-KMNBAS 
BOUND UP TO PAGE SIZE 

; CVT TO # WORDS 
; CVT TO # PAGES 

# PAGES NEEDED TO JOB CONTEXT AREA 

# 256 WORD PAGES FOR KMON & CONTEXT 
INITIAL STACK POINTER 
STARTING ADDRESS 

Now do . SAVES I ATUS so we tan quickly reopen to kmon 

. SAVEST #XAREA. #i > #KMNCHN ; SAVE STATUS 

Now purge and reopen channel 17 to the new file (for overlays). 

PURGE #17 >Purge channel 17 (overlay channel) 

.REOPEN ttXAREA, #17,#KMNCHN iOpen channel 17 to new file 

Exit to reload Kmon 

.EXIT iEXIT AND REENTER NEW VERSION OF TSKMON 

Error: Cannot find new Kmon file 

FABORT #NOKMON .; ERROR — CAN'T FIND TSKMON 

Process the SET CCL NEW conrntand. 



MOV 


BLKO+50, RO i 


ADD 


#3, RO i 


BIC 


#1,R0 i 


MOV 


RO, KMNTOP 


SUB 


#KMNBAS, RO i 


MOV 


RO, KMNHI .: 


ADD 


#511. ,R0 ■> 


CLC 




ROR 


RO ; 


SWAB 


RO i 


BIC 


#'-C377, RO 


ADD 


ttCXTPAG, RO i 


MOV 


RO, KMNPGS ; 


MOV 


BLKO+42, KMNSTK J 


MOV 


BLKO+40, KMNSTR i 



Bectin to use a enw version oi 



CCL 



004767 OOOOOOG 

103412 

000167 OOOOOOG 



SETCNW: CALL CKSYPV ; Must have SYSPRV privilege 

.LOOKUP #XAREA, #1, #CCLNAM i TRY TO LOOKUP SY: CCL. SAV 

BCS 1* ; BR IF CAN'T FIND IT 

.SAVEST #XAREA, #1, #CCL3AV ; SAVE STATUS 

JMP RDCMD ; FINISHED 

1«: FABORT #NOCCL .= CAN'T FIND CCL. SAV 
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3 
4 
5 








i Prat 


e G p SET I.. D n c o mm a n ti 




005712 


00500,'' 




SETLD: 


CLR R2 




6 


005714 


020067 


OOOOOOG 




CHP R0> R50L.D 




7 


005720 


001404 






BEQ 1* 




8 


005722 


010002 






MOV RO, R2 




9 


005724 


166702 


0000000 




SUB R50LD0, R2 




10 

1 1 


005730 


006302 






ASL R2 




.1. * 

12 
13 








■> Got 

> 


the option word 




14 


005732 


012704 


001224' 


1*: 


MOV #LDOPHD, R4 




15 


005736 


004767 


0000000 




CALL SEARCH 




16 


005742 


103004 






BCC 2* 




17 
18 


005744 








FABORT #CSIMS.t 




19 








; Jump off to option proci 




20 














21 


005754 


000134 




2*: 


JMP @(R4)+ 




23 
24 










LD CLEAN 




25 


005756 


004767 


OOOOOOG 


SLDCLN: 


CALL LDCLEN 




26 
27 

2a 


005762 


000167 


OOOOOOG 




JMP RDCMD 










i SET 


LDn WRITE 




29 














30 


005766 


042762 


OOOOOOG OOOOOOG 


SLDWRf: 


B.IC #LD*RON, LDF" 




31 


005774 


000167 


OOOOOOG 




JMP RDCMD 




32 
33 
34 








; SET 


LDn WO WRITE 




35 


006000 


052762 


OOOOOOG OOOOOOG 


SLDNWR: 


BIS #LD*RON>LDF 




36 


006006 


000167 


OOOOOOG 




JMP RDCMD 




37 














38 
39 








i SET 


LDn FREE 




40 


006012 


004767 


000052 


SLDFRE: 


CALL LDDMT 




41 


006016 


004767 


OOOOOOG 




CALL LDCLEN 




42 


006022 


000167 


OOOOOOG 




JMP RDCMD 



ASSUME UNIT *t == 

IS UNIT "LD"? 

BR IF YES 

GET DEVICE NAME 

SUBTRACT "LDO" TO GET UNIT # IN R2 

CONVERT TO WORD TABLE INDEX 



POINT TO OPTION TABLE 
ACCRUE AND CHECK OPTION WORD 
BR IF FOUND 
INVALID OPTION WORD 



F- s i n q routine 

; ENTER PROCESSING ROUTINE 

; CLEAN UP LOGICAL DISKS 



1AG(R2) ; CLEAR READ-ONLY FLAG 
.: FINISHED 



•LAG<R2) ; SET READ-ONLY FLAG 
i FINISHED 



DISMOUNT THIS LD 

NOW RESET ALL LOGICAL DISK ASSIGNMENTS 

FINISHED 



f 
« 
f 

« 

i 
C 
< 

i 
i 
I 

4 

t 

4 



I 
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2 

3 








4 








5 


006026 






6 








7 








8 








9 








10 


006026 


00 500;:.' 




ii 


006030 


004767 


000 1 02 


12 


006034 


062702 


000002 


13 


006040 


020227 


000016 


14 


006044 


101771 




i.b 








16 








17 








18 


006046 


012700 


000110' 


19 


006052 


10437^j 




20 


006054 


103003 




21 


006056 






22 








23 








24 








25 


006064 


000167 


OOOOOOG 



SETi LD EMPTY 

(Di&moitnt ail logical (iisk&) 



3LDEMP 



I*' 



Begin loop to close log files and deassign any assignments for each 

logical d i & k 

.ilnit index to Ist LD 

^ Close any log files and make deassignments 

; Oet index for next LD 

; Have we done ell? 

; Loop i f not 



CLR 


R2 


CALL 


LOGDEA 


ADD 


#2, R2 


CMP 


R2, #14. 


Bt..,OS 


1* 



D i bmo un t the all LD ■' s 

MOV #DMTALD> RO 

EMT 375 

BCC 9* 
.PRINT #EDMALD 

["in i shed 

9*: JMP RDCMD 



; Emt arg. block to dismount all LD's 

; Dismount all LD's 

i Branch if all LD's dismounted 

; "Unable to dismount ail logical disks." 



TSKSTl 



ID 
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€ 



1 

*■) 

3 
4 
5 
6 
7 

a 

9 
10 

1 1 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 



Subroutine to dismount a logical disk. 

Input B : 
Ri! ~ LD unit index 



006070 010246 

006072 004767 000040 



006076 112767 000001 OOOOOOG 

006104 012700 0000000 

006110 i0437'J 

006112 105067 OOOOOOQ 



006 1 1 6 00 5062 0000000 
006122 072227 000002 
006126 005062 OOOOOOG 



006132 012602 
006134 000207 



LDDMT: 



MOV 
CALL 



R2, -(SP> 
LOGDEA 



.; Close any log files and make deassisnments 

Tell system to stop doing directory caching for device 

J Do . SERR to avoid abort for illegal device 

; Point to EMT arg block 

;TeH system to stop doing caching 

; Do . HERR 



MOVE 


#1, SERFLG 


MOV 


#DMTARG.. RO 


EMT 


375 


CLRB 


SERFLG 



Clean out LD info tablet. 



Ci.R 
ASH 
CLR 

Finis 1 1 e- d 



9*: 



MOV 
RETURN 



LDPDEV<R2) 
#2, R2 
LDNAME<R2) 



< SP ) +, R2 



j No physical device assignment 
; Get index into LDNAME table 
j No file name 



I 
« 

4 
4 
i 

i 

€ 

I 

i 

€ 

i 

I 

( 

* 

4 

4 

I 
C 
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i.D 



1 

2 








3 








4 








5 








6 








7 








9 


006136 


010246 




9 


006140 


010546 




10 








1 i 








12 








13 


006142 


010200 




14 


006144 


072027 


000002 


15 


006150 


005760 


0000000 


16 


006154 


001413 




17 








18 








19 








20 


006156 


010205 




21 


006160 


oo62o;:> 




22 


006162 


066705 


OOOOOOG 


23 


006166 


010567 


0000000 


24 








25 








26 








27 


006172 


004767 


OOOOOOG 


20 








29 








30 








31 


006176 


0:1,0500 




32 


006200 


004767 


OOOOOOG 


33 








34 








35 








36 


006204 


012605 




37 


006206 


012602 




3a 


006210 


000207 





Subroutine to check i'-or open log files and deassign any assignments 



I n fi u t B : 
RI* = LD unit index 



LOODEA: MOV 



R2, -<BP) 
R5, -<SP) 



PSor. i+" -i-h-ic: in 



MOV 

ASH 
TST 
BEQ 



R2i RO 
#2, RO 
LDNAME<RO) 

9* 



Build name of LD 



MOV 
ASR 
ADD 
MOV 



R2, R5 

R5 

R SOLDO, R5 

R5, MNTDEV 



; Get LD unit index 

; Cvt to index into name table 

; Is this LD in useT^ 

■> Br if not 



Get LD unit index 
Convert to unit number 
Add "LDO" to form unit name 
> Save name of device being dismounted 



Close the loq file if it is on the device being dismounted 

CALL LOGCHK ; Close log file if it is on this LD 

Do DEASSIGN of anythinct assigned to this LD 

; Get LD name 
i Do deassign 



9*: 





MOV 


R5, RO 




CALL 


DEADEV 


F i n i 


5 h e d 






MOV 


(SP)+, R5 




MOV 


(SP)+, R2 




RETURN 





i 

i 
i 
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. SBTTL 



3 
4 
'5 
6 
7 

8 006212 
9 
10 

1 1 

12 006212 

13 006216 
14 

15 

16 

17 006222 

IS 

19 

20 

21 



012704 
004767 



23 
24 



31 
32 



006226 
006232 

25 006234 

26 006250 

27 006252 

28 006260 

29 006262 

30 006276 
006300 
006306 

33 006314 

34 006316 

35 006324 
36 

37 
38 
39 

40 006326 

41 006334 

42 006342 
43 

44 
45 
46 

47 006344 

48 006352 
49 

50 
51 
52 

53 006354 

54 006362 
55 

56 
57 



105767 
001007 

000425 
032761 
001007 

000412 
052761 
032761 
001403 

000207 



042761 
000207 



052761 
000207 



042761 
000207 



SE'i SI 

I n ff u t B : 
I'VJ - Pointer to parameter-B following "SET SL". 

SETSL : 

■> Process each of the- command parameters 



001254' 

ooooooe 



HOV #SLEHD, R4 
CALL SCNOPS 



jPoint to list of qualifiers 
jProcess the qualifiers 



000167 0000000 



Finished 
JMP 



RDCMD 



SEl SL ON 



0000000 



5L00N: 



ooooooe 0000000 1*: 



0000000 ooooooe 2*: 

ooooooe 0000000 



TSTB 

r^ME 

FWARN 

BR 

BIT 

BME 

FWARN 

BR 

BIS 

BIT 

BEG 



j Is SL available? 

i Br i f yes 

j SL not genned into system 



VSLEDT 

1* 

#EM*Ni->L 

9* 

#<VT100 ! VT200 i VT52>, LTRMTP < R 1 ) ; VTIOO, VT200 or VT52 

2* i Br if yes 

#EM*SLT i invalid terminal type 

9* 



#*SLON, LSW7(R1) 
#*SLKED, LSW7<R1) 

9* 



9*: 



. PRINT #SLKDON 
RETURN 



Enable SL for this line 

Is Ked mode wanted? 

Br if not 

Enable terminal alternate keypad mode 



ooooooe ooooooe 



SET SL, OFF 

SLOOFF: .PRINT #SLKDOF i Return numeric keypad to normal mode 

BIC #«SLON, LSW7(R1) ; Disable SL for this line 
RETURN 



SEf BL TTY 

ooooooe ooooooe SLOTTY: bis #*SLTTY, LSW7(Ri)i Enable SL for . TTYIN 

RETURN 



GET SL NOTTY 

ooooooe ooooooe SLONTT: big #*SLTTY, LSW7(R1); Disable SL for .TTYIN 

RETURN 



SET Si., WIDTH^^^n 
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5B 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

Errors d 



006364 
006400 
006404 
006410 
006416 



012705 
004767 

000207 



006420 
006426 



052761 
000207 



006430 
006436 



042761 
000207 



006440 
006446 
006454 



052761 
000207 



006456 

006464 



042761 
000207 



006474 
006510 



000207 



00651; 



000207 



006514 
006520 
006524 
006526 
006542 
006546 



e t e c; t e d : 



012704 
004767 
103006 

1 1 1 467 
000167 

00000.1 




EjLOyiD: 



0000000 
0000000 



FWARN 
MOV 
CALL 
. PRINT 
RETURN 



#EM*SLW 
#SLMXLN, R5 
PRTDEC 
#CRLF 



jF'rint ujarning message 

i Get SL width 

; Print the val ue 

; Terminate the line 



SEl SL LET 

ooooono nctnnonc «i nt ft- htc; *»*<=! i cr-r i aw/fai -i -. c-Y^^ahio i pr *p=+.j-r-p 

RETURN 



SET SL NDLET 

OOOOOOG OOOOOOG SLONLT: BIC #*SLLET, LSW7 <R1) i Di sab 1 e LET feature 

RETURN 



SET SL KED 

OOOOOOG OOOOOOG SLOKED: BIS #*SLKED, LSW7<R1 ); Remember SL is in KED mode 

PRINT #SLKDON j Enable terminal alternate keypad mode 

RETURN 

> 

; SET SL RTll 

OOOOOOG OOOOOOG SLORT: BIC #*SLKED, LSW7 <R1 ); Remember SL is not in KED mode 

. F'RINT #SLKDOF i Return numeric keypad to normal mode 

RETURN 



Un implemented SL option 

SLOUNI: FWARN #EM*UIO 
RETURN 



; Unimp lemented option 



Ignored option 
SLONOP: RETURN 



SET RECALL NORMAL/REVERSE 



001404' 
OOOOOOG 



OOOOOOG 
OOOOOOG 



SETREC: MOV 
CALL 
BCC 
FWARN 

1^: MOVB 
JMP 

. END 



#RCLHD, R4 

SEARCH 

1* 

#INVOPT 

©R4, RCLRLV 

RDCMD 



Point to option table 
Accrue and check options 
Br if valid option 
Invalid option 
Set into context cell 
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SL 

■«■■«-«• Assembler <jtat i sti c t- 



Wur k fi 1 e read s 
Work file writet:. 
Size of work file 
Size of core pool 
Operating system 







11952 Words 

17920 Words 

RT-ll 



< 47 Pages) 

< 70 Paqes) 



Elapsed time: 00:01:5:3.46 

DK: TSKSTl/ LP: TSKST1=DK: TSKSTl. MAC/C/N: SYH 



TBKSTl — Keyboard SET Command MACRO V05. 04 Honday 21-Dec-S7 12: 57 Page S-1 
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•tilSTLG 




-73 


*BH IT 




-ill 


^A^JTO 




-87 


*CARUP 




-85 


^CCLRiM 




-86 


^CFABT 




-106 


^SCFALL 




-112 


•*CFCCL 




-112 


*CFDCC 




-112 


It-CFOPN 




-. 1 1 s 


$CFSOT 




-110 


*CHACT 




-61 


*CLTST 




-96 


fCTRLC 


1- 


-104 


*CTRLD 




-154 


*CTRLO 




-61 


*CTRLS 




-91 


*DBKMN 




-84 


$DEAD 




-158 


*DEBUG 




-155 


*DEFER 




-124 


*DETCH 




-89 


*DIBOL 




-73 


*D1LUP 




-108 


HDISCN 




-90 


*DOOFF 


1- 


-114 


*DUPRN 




- 1 09 


HECHO 




- 1 1 1 


*EMTTR 




-95 


*FDRH 




-110 


*FORMO 




-112 


*HARD 




-158 


*H.ITTY 




-72 


*INCDR 




-128 


■$TNDAB 




-159 


*INDDF 




-157 


fINDRN 




-157 


*INIT 




-158 


SINKMN 




-104 


*KED 




-128 


*KINIT 




-68 


*LC 




-111 


*^LOFCF 




-203 


*MLOCK 




-77 


*NOIN 




-72 


*NOINT 




-204 


*MOWTT 




-72 


$PAeE 




-ill 


liPHONE 




-158 


^PRGLK 




■87 


*PWKEY 




-32 


$QTSET 




-133 


*QUIET 




-125 


*RNIOP 




-205 


*SCOPE 




-Hi 


•$SGALL 




-124 



5-45 5-46 
10-3B 10-40 

5-38 5-39 



5-163 5-164 



5-170 5-171 10-48 



5-62 5-63 

5-32 5-33 14 --86 14-96 



14-43 14-48 14-56 



1 7-i 



20-Br;' 20-08 



5-202 
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\ Cross reference 


table (CREF 


V05. 04 ) 




















i *SGHIO 


1-123 


5-HM 


5-185 




















$SGIIO 


1-123 


5-1B6 


5-187 




















*SGQO 


1-105 


5-J8B 


5-189 




















1 *SGQ1 


1-123 


5-190 


5-191 




















*SGQ1A 


1-123 


5-192 


5-193 




















*SGQ1B 


1-123 


5-194 


5-195 




















< *SGQ1C 


1-123 


5-196 


5-197 




















*SGQ2 


1-123 


5-198 


5-199 




















fSGQ3 


1-105 


5-200 


5-201 




















1 *SLKED 


1-82 


34....3D 


34-80 


34-37 


















*SLLET 


1-202 


34-68 


34-74 




















*SLON 


1 -202 


34-31 


34-41 




















< *SLTTY 


1-202 


34-47 


34-53 




















*SNWTT 


1-155 
























$3PLJB 


1-91 
























1 liSTSNG 


1-61 
























*SUCF 


1-113 


17-7 


26-21 


27-22 


















HSYSPS 


1-160 
























i $TAQ 


1-110 
























*TAPE 


1-153 
























*TECO 


1-133 


14-43 


14-49 


14-55 


















i *TTGAG 


i-ua 
























*UCLCF 


1-119 


5-53 


14-61 


14-68 


14 74 


14-79 














tUCLCL 


1-121 


5-55 


14-62 


14-68 


14-73 


14-79 














1 «UCLCM 


1-121 


5-54 


14-62 


14-67 


14-74 


14-79 














*UCLRN 


1-120 
























*UKMON 


1-85 


5-34 


28-45 




















€ *VNOTT 


1-48 
























^VTESC 


1-81 
























*w:t:LD 


1-134 


5-25 


5-26 




















1 . . . vi 


S-57 


9-25 


9-27 


10-16 


10-18 


11-28 


1 1 -28 


11-28 


11-30 


11-30 


11-35 


11-41 




11-41 


11-44 


12-74 


12-75 


12-75 


12-95 


12-96 


12-96 


12-97 


12-97 


13-5 


13-5 




13-6 


1 3-6 


1 3-38 


14-87 


14-90 


14-97 


14-100 


18-60 


18-66 


lS-72 


18-78 


21-11 




21-14 


21-21 


22-11 


22-14 


23-9 


25-32 


25-32 


25-32 


28-42 


28-42 


28-42 


28-44 




28-44 


29-6 


29-6 


29-6 


29- U 


29-11 


29-30 


29-30 


29-34 


29-35 


29-35 


29-50 




29-50 


29-50 


29-52 


29-52 


31-21 


34-34 


34-40 


34-62 


34-01 


34-88 






i . . . V2 


8-57 


8-57# 


11-28 


11-28 


1 1 -28# 


1 1 -2S# 


1 1 -30 


11-30 


1 1 -30# 


ll-30# 


11-35 


11~35# 




11-41 


11-41 


11-41# 


11~41# 


1 1 -44 


ll-44# 


1 2-74 


1 2-74# 


12-75 


12-75 


12-75# 


12-75# 




12-95 


12-95# 


12-96 


12-96 


12-96# 


12-96# 


12-97 


12-97 


12~97# 


12-97# 


13-5 


13-5 




13-5# 


13-5# 


13-6 


13-6# 


13-38 


13-3S# 


25-32 


25-32 


25-32# 


25-32# 


28-42 


28-42 




28-42# 


2S-42# 


28-44 


2S-44# 


29-6 


29-6 


29-6# 


29-6# 


29-11 


29-11 


29-1 1# 


29-1 1# 




29-30 


29-30 


29-30# 


29-30# 


29-34 


29-34# 


29-35 


29-35 


29-35# 


29-35# 


29-50 


29-50 




29-50# 


29-50# 


29-52 


29-52 


29-52# 


29-52# 














ABRTAD 


1-48 
























ABRTCD 


1-48 
























( ABRTCF 


1-165 
























ACRDEC 


1-173 


9-.! 3 


9-41 


10-8 


12-58 


14-33 


19-8 


19-33 


21-5 


22-5 






ACRFIL 


1-172 


25-16 


26-35 


28-21 


















i ACRFN 


1-165 
























ACROCT 


1-175 


12-60 






















ACRSPD 


1-76 
























1 ACRSTR 


1-37 


15-22 






















ACRTXT 


1-39 


16-13 


27-30 




















AD**SZ 


1-64 
























t AD*DVU 


1 - 64 
























AD*JDB 


1-64 
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f 

f 

I 

< 

f 

I 

i 

I 

i 

I 

I 

< 

i 

€ 
I 

i 
i 

12-39 13-5 13-2a«- 13-29* 13-30 15-25 16-23 27-37 29-11 

i 

I 

i 



ADM3A 


i-14S 






ADM3FL 


1-149 






ADM3N0 


1-151 






AF$DBG 


1-204 






AF*HIE 


1-204 






AF*IOP 


1-205 






AF*MEM 


1-47 






AF*NOI 


1-204 






AF*NOW 


1-47 






AF*PLK 


1 —204 






AF$SCA 


1-47 






ALCDEV 


1-28 






ALCEND 


1-63 






ALCHDl 


1-60 






ALCHD2 


1-60 






ALCTBL 


1-63 






ALDBLK 


1-13S 






ALDEX 


1-187 


i-18B 




At. FN 


1-199 






AMBOPT 


1-173 


1-186 


8-56 


AR**SZ 


1-202 






AR*CNT 


1-201 






AR*CDN 


1-201 






ARfCPH 


1-201 






ARfCPL 


1-201 






AR*DMY 


1 -202 






AR*PRG 


1-201 






AR*PRJ 


1-201 






AR^tUNM 


1-201 






ARNRPB 


1 -202 






ASDEX 


1-170 






ASKLNM 


1-169 






ASNHDl 


1-182 






ASNHD2 


1-182 






ASNOVF 


1-170 


1-195 




ASNSRC 


1-137 


7-45 




AT*DEV 


1-56 


7-47 




AUTHFN 


1-192 






BADCMD 


1-169 






BADPMT 


1-176 


1 5-38 




BADPR I 


1-176 


21-e 


22-9 


BADSAV 


1-169 






BASMAP 


1-142 






BDFNAM 


1-172 


25--70 


26-57 


BDLGOP 


1-177 


25-34 




BDLIN 


1-190 






BDSO 


8-44 


s-r<4# 


26-13 


BELL 


2-7# 






BLANK 


2-6# 






BLKO 


1-168 


1 1 -30 


12-23 




29-12 


29-25 


29-26 


BLKWDS 


2-1 1# 






BOTDEV 


1-103 


23--18«- 




BOTUNI 


1-103 






C. csw 


1-115 






C. DEVQ 


1 - 1 1 r> 







27-50 28-59 
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C. SBLK 


l--iib 




C. USED 


1-41 


24-34 iJ 


CALUCL 


1-181 




CASCBR 


1-97 




CASCUP 


i-97 




CASTER 


1-97 




CASTBW 


1-97 




CASTRO 


1-98 




CASTWO 


1-98 




rri wn 


4-10 


5'44# 


CCLNAM 


1-196 


29-50 


CCLSAV 


1-94 


29-::>2 


CD**SZ 


1-116 




CD«*UB 


1-116 




CD*BAS 


i-U6 




CD*DVU 


1-116 




CD*JOB 


1-116 




CD*NAM 


1-116 




CDfTOP 


1-133 




CDBUF 


1-38 




CDCET 


1-38 




CF$IND 


1-159 


i4-B9 


CF*QUT 


1-159 




CFABLV 


1-160 


23-9 


CFBLK 


1-125 




CFBUF 


1-94 




CFCHAN 


1-134 




CFEND 


1-94 




CFHOLD 


1-132 




CFIND 


1-114 




CFLFL4 


1-119 




CFNEST 


1-117 




CFPNT 


1-125 




CFSEND 


1-118 




CFSP 


1-118 




CFSPND 


1-131 




CFSTK 


1-6S 




CFSTS 


1-159 


14-87 


CHAIN 


1-104 




CHKALC 


1-111 


7-62 


CHKCLU 


1-36 


7-68 


CHKDEV 


1-196 


25-39 


CHKDLM 


1-186 




CHKEQ 


1-45 


20-19 


CHKMNT 


1-171 




CHKMTX 


1-171 




CHKTTD 


1-194 


25-27 


CHNSI2 


1 -4 1 


24-;j2 


CINDAT 


1-141 




CINFLG 


1-48 




CKACOJ 


1-45 




CKCLUS 


1-37 




CKPRIV 


1-173 


14-6 


CKSYPV 


1-45 


8-14 


CKTERM 


1-174 




CL*COL 


1-66 





14-99 



14-90 14-97 14 100 



20-31 



14-14 23-16 23-24 

9-9 9-37 10-4 16-9 29-5 29-49 
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CL*EPN 




-41 


CL*EPS 




-41 


CL*LEN 




-101 


CL$LIN 




-101 


CL$LIX 




-62 


CL*OPT 




-100 


CL$RQH 




-63 


CL^SKP 




-101 


CL*WID 




-101 


CL*WQH 




-63 


CL^XLN 




-37 


CLDEVX 




-139 


CLEOFS 




-41 


CLFREE 




-57 


CLLINE 




-57 


CLOT I R 




-65 


CLRBIT 




-26 






-195 


CLRPRV 




-43 


CLSFEP 




"42 


CLSFSP 




-98 


CLTOTL 




-98 


CLUNIT 




-57 


CMDBUF 


1- 


-164 


CMDCCL 


1- 


-196 


CMDDSN 


1- 


-27 


CMDFRM 


.1- 


-27 


CMDHD 


1- 




CMDMEM 


1- 


-28 


CMDOFF 


1- 


-26 


CMDSET 


1- 


-28 


CMDSHD 


1- 


-28 


CMDUSE 


1- 


-28 


CMDWHO 


1- 


-28 


CO*BBT 


1- 


-115 


cn*BN.i 


1- 


-100 


CO*BNa 




-100 


CO*CR 


1- 


-99 


CO*CTL 


1- 


■99 


CO*DEF 


1- 


-66 


CO*DTR 


1- 


-98 


CO*FF 


1- 


-99 


CO*FF0 




■99 


CD*LC 


1- 


-99 


CO$LFI 


1~ 


-100 


CO^LFO 


1- 


-100 


CO*TAB 




•99 


COAD 


1- 


••187 


COAF 


1- 


■200 


COAL 


1- 


-187 


COL 00 


1~ 


-181 


COMMA 


2- 


~10# 


C0NFG2 


1 - 


-62 


CONFIG 


1- 


-113 


CORUSR 


1- 


-61 


CPU AH 


1- 


■181 
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CPUAL 


1-181 








CR 


2-5# 








CRLF 


1 ~ 1 76 


9-27 10-18 21-14 


21-21 




CS*RON 


1-80 








CSHALC 


1-103 


10-9 






CSHDEV 


1-lOS 








CSHDVN 


1-108 








CSHHD 


1-163 








CSHMSG 


1-203 








CSHSIZ 


1-143 








CSIMSl 


1-1 7S 


13-39 30-17 






CSIMS2 


1-173 


7-44 11-36 






CSIMS4 


1-195 








CTDHD 


4-12 


5-232# 






CTRLTT 


1-102 








CURMTX 


1-186 








CURPRM 


1-130 








CVDVNM 


1 - 1 S3 








CVTTAB 


1-164 


7-;^ 






CVTUC 


1-163 








CW*50H 


1 - 1 1 ;3 








CW*PRO 


1-62 








CXTBAS 


1-107 








CXTPAG 


1-79 


29-23 






CXTRMN 
CXTWDS 
DATTIM 


1-41 

1-107 
1-27 


24-26 






DCCRD 
DCCWR 


1-137 
1-137 








DCHNEW 


6-33# 


10-26 






DCTRD 
DCTWR 


1-137 
1-137 








DEADEV 


1-171 


33-32 






DELSPC 


1-185 








DETARG 


1-200 








DETHD 


1-200 








DETTXT 


1-179 








DEVHDl 


1-182 








DEVIDL 


1-1S7 


1-1 B7 I-IBB 






DEVUNT 


1-174 


11-20K' 12-85 






DFJMEM 


1-68 








DIABFL 


1-125 








DIABLO 


1-147 








DIABMO 


1-126 








DIVIDE 


1-180 








DIVSDR 


1-193 








DJABMS 


1-191 








DKASHD 


1-59 








DKSAV 


1-164 








DLCEMT 


1-28 








DLMSG 


1-191 








DLTXT 


1-178 








DMTALD 


6-60# 


31-1 B 






DMTALL 


1-191 








DMTARG 


1-170 


32 13 






DMT SUB 


1-196 
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DOASGN 


1-85 




DOR UN 


1 -27 




DOSTOP 


1-192 




DVFLAG 


1-32 


13-r'2 


DVSHHl 


1-59 




DVSHH2 


1-59 




DVSHH3 


1-59 




DVSTAT 


1-76 




DX*NST 


1-32 


13-21' 


DZTXT 


1 - 1 ?S 




EDIT 


1-73 




EDITHD 


4-13 


5-4# 


EDMALD 


1-42 


31-21 


EDTFIL 


1-184 




EM* ACL 


1-54 




EM* CAP 


1 - 44 




EM*CIP 


1-53 


22-18 


EM*CLI3 


1-54 




EM*CLN 


1-53 




EMfCLX 


1-36 




EM*CNO 


1-44 




EM$CPO 


1-44 




EM*CSE 


1-70 




EM*HNI 


1-68 


13-16 


EM*ICL 


1-52 




EM*IDR 


1-42 




EM^ILN 


1-53 


l-f^4 


EM* 1ST 


1-42 




EM* I UN 


1-53 




EM*NAD 


1-46 


10-37 


EM*NPD 


1-53 


10-34 


EM*NPR 


1-45 




EM*NSF 


1-53 


26-25 


EM*NSL 


1-54 


34-25 


EM*NUK 


1-86 


28-51 


EM*OPR 


1-36 


11-45 


EM*PTA 


1-36 


20-40 


EM*PTU 


1-36 


20-42 


EM*SLT 


1-54 


18-46 


EM*SLW 


1-54 


34-59 


EM*SPL 


1-39 


16-19 


EM* STL 


1-42 


27-33 


EM*TSL 


1-54 




EM*UIO 


1-55 


34-94 


EM*WCO 


i -40 


1 8-96 


EM*WC1 


1 -40 


18-77 


EM*WC2 


1-40 


is-vo 


EM*WC3 


1-40 


18-99 


EM*WCM 


1-40 


18-11 


EMTHD 


4-14 


5 -■ J 69# 


ERRHD 


4 -.16 


5'i::m 


ERRLOC 


1-67 


1 S-86 


ERRSEV 


1-134 


23-lrii 


ESC 


1-Q2 




FC*CDX 


1-163 




FC*LNK 


1-163 





10-47 



34-29 
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FDHNAM 


1-163 








FF 


2"9# 








FILNAM 


1-165 


1-.I66 


25- 


-21 


FKILL 


1-165 


7—'! 4 


8- 


-56 




14-92 


16-19 


18- 


"11 




27-50 


28-51 


28- 


-55 


FFRINT 


l~i6!5 


15-38 


20- 


-40 


FSTDL 


1 -89 








FSTIOL 


1-62 


1-79 






GAGMSG 


1-1 90 








GENTOP 


1-103 








GETKCH 


1-77 


1 2~B 


12- 


-11 


GRTl 


1-144 








GTRD50 


1-170 


7-40 


8- 


-28 


H. CSR 


1-76 








H. VEC 


1 -76 








HANBSY 


1-175 


13-33 






HANCHN 


1-64 


S-57 


8- 


-57 




1 1 -44 


12-97 


12- 


-97 


HANENT 


1-75 








HAMPAR 


1-76 








HANSAV 


6-4# 


ll—'M. 


12 


-75 


HANS I Z 


1-75 








HAZEL 


1-77 








HAZLFL 


1-77 








HAZLNO 


1-77 








HI MAP 


1-142 








HIPRI 


1-176 


21-18 






HMBUF 


1-174 


11-27-t^ 


11- 


-28 


HUPARG 


1-195 


13-26 






II$*SZ 


1-46 








II^FLG 


1-46 








n*NAM 


1-46 








IJ*NPV 


1-4S 








II*PRV 


1-43 








IIBUF 


1-46 








ILLCMD 


1-171 








ILSW2 


1-83 








IN*ACT 


1-157 








INfCMD 


1-157 








IN*CNT 


1-157 








INDACT 


1-167 








INDERR 


1-106 








INDHD 


4-20 


5-6 i# 






INDSAV 


1-157 


14-04 






INDSTA 


1-106 








INFOMT 


1-171 








INGADR 


1 -46 








INGEMT 


1-46 








INSTBL 


1-46 








INSTBN 


1-47 








INVDAT 


1-200 








INVDEV 


1-199 








IN VEC 


1-158 








INVLDM 


1-195 








INVLDN 


1-172 









28-59 29-43 

20-42 21-8 



25- 


-32 


10- 


-•37 


22- 


-18 


29- 


-54 


21- 


-IS 



25- 


-38 


10 


-47 


25 


-34 


30 


-17 


22- 


-8 



12-19 20-20 



12-97 



13-11 
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25-26 25-32 25-32 25~38 26-40 26-45 28-23 
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INVLDO 

INVOPT 

INVSOP 

INVTIM 

lOABFL 

lOABHD 

ITRHTP 

vJCXPGS 

JCXSMS 

■JP WDEV 

JPWFLG 

JPWTYP 

JSTKND 

JSWLOC 

K52 

KBMSG 

KBTX 

KCSIBF 

KCSIMS 

KDOCIN 

KED 

KILEMT 

KL3CLR 

KL4CLR 

KMNBAS 

KMNCHN 

KMNHI 

KMNNAM 

KMNPGS 

KMNSTK 

KMNSTR 

KMNTOP 

KMDNHD 

KMPRMT 

L 



S~57# 
1-165 

e-55 

1~.!.91 
1-61 
4--22 
,1-159 

1-142 
1-198 
1-39 

1-39 

1-39 

1-102 

1 -67 

1-73 

1-180 

1-184 

1-169 

1-170 

1-26 

1-73 

1-192 

1-87 

1-127 

1-154 

1-94 

1-78 

1-196 

1-79 

1-79 

1-79 

1-79 

4-23 

1-138 

4-9 

4-15 

4-21 

4-27 

4-33 

4-39 

4-45 

4-51 

4-57 

5-19 

5-35 

5-46 

5-62 

5-73 

5-S4 

5-90 

5-96 

5-112 

5-118 

5-129 

5-135 



12-26 
1-171 
8-58*} 

5-177 
5-176# 



20-24 «• 
20-36 «• 
20~3trK 



29-16 
12-96 
29-1 7 # 
29-6 
29-24* 
29-251J 
29-26«- 
29-1 5^^ 
5-3 1# 
15-10 
4-9# 
4~.t5# 
4-21 # 
4-27# 
4~33# 
4~39# 
4-45# 
4-1' 1# 
4-57# 
5-8# 
5-.)9# 
5-:i5# 
5-46# 
5-62# 
5~73# 
5-H4=H 
5-90# 
5-96# 
5-1 i2# 
5-il8# 
5~129# 
5-135# 



1-186 



5-178 



8-58 



34-108 



20 -5 H^ 



29-30 



4-10 

4-16 

4-22 

4-28 

4-34 

4-40 

4-46 

4-52 

4-58 

5-14 

5-25 

5"-36 

5-47 

5-63 

5-79 

5-85 

5-91 

5-97 

5-113 

5-119 

5-130 

5-136 



20~56+<- 



29-35 



20-61* 



4-10# 


4 11 


4-1 6# 


4 17 


4-22# 


4-23 


4-28# 


4-29 


4-34# 


4-35 


4-4 0# 


4-41 


4-46# 


4-47 


4-52# 


4-53 


4-5S# 


4-59 


:5-i4# 


5-15 


5-2 5# 


5-26 


5-36# 


5-37 


5-47# 


5-53 


5-63# 


5-69 


5-79# 


5-80 


5-S5# 


5-86 


5-9 1# 


5-92 


5-97# 


5-98 


5 -113# 


5 114 


5-1 19# 


5-120 


5-130# 


5-131 


5-136# 


5-137 



20-66* 



20-7 I* 



4-1 1# 


4-12 


4-J7# 


4- •18 


4~23# 


4-24 


4-29# 


4-30 


4-3 5# 


4-36 


4-4 1# 


4 42 


4-47# 


4-48 


4-53# 


4 54 


4-59# 


5-5 


5-i5# 


5-16 


5-26# 


5-32 


5~37# 


5 -38 


5-53# 


5 •54 


5-69# 


5 -70 


5-80# 


5-81 


5-B6# 


5-87 


5~92# 


5-93 


5-9S# 


5 •99 


5-.tl4# 


5 115 


5-120# 


5-121 


5-1 31 # 


5-132 


5-137# 


5-138 



20-76* 



4-12# 


4-13 


4-lS# 


4-19 


4~24# 


4-25 


4~30# 


4-31 


4-36# 


4-37 


4-42# 


4-43 


4-"4S# 


4- -4 9 


4-54# 


4-55 


5-5# 


5-6 


5-16# 


5-17 


5-32# 


5-33 


5-3S# 


5-39 


5-54# 


5-55 


5-70# 


5-71 


5-8 1» 


5-82 


5~87# 


5 -88 


5-93# 


5-94 


5-99# 


5-105 


5-1 i5# 


5-116 


5~121# 


5-122 


5-132# 


5-133 


5-1 3S# 


5-144 



4-1 3# 


4-14 


4-1 9# 


4-20 


4-25# 


4-26 


4-31# 


4-32 


4-37# 


4-38 


4-43# 


4-44 


4-49# 


4-50 


4-55# 


4-56 


5-6# 


5-7 


5-17# 


5-18 


5-33# 


5-34 


5-39# 


5-45 


5-55# 


5-56 


5-7 1# 


5-72 


5-82# 


5-83 


5-88# 


5-89 


5-94# 


5-95 


5-1 05# 


5-106 


5-1 16# 


5-117 


5-1 22# 


5-123 


5~133# 


5-134 


5-144# 


5-145 



4-14# 
4-20# 
4-26# 
4-32# 
4-38# 
4-44# 
4-50# 
4-56# 
5-7# 
5-18# 
5-34# 
5-45# 
5-56# 
5-72# 
5-83# 
5-89# 
-95# 
-106# 
-117# 
-123# 
5-134# 
5-145# 



5- 
5- 
5- 
5- 
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5-146 


5~146# 


5-147 


5- 


~147# 


5- 


■148 




5-152 


5- 1 52# 


5-153 


5- 


•153# 


5- 


-154 




5-163 


5-163# 


5-164 


5- 


-164# 


5- 


-170 




5-184 


5-lS4# 


5-185 


5- 


-1S5# 


5- 


■186 




5-190 


5-190# 


5-191 


5- 


■•191# 


5- 


-192 




5-196 


5-196# 


5-197 


5- 


-197# 


5- 


"198 




5-202 


5-202# 


5-208 


5- 


•20S# 


5- 


-209 




5-213 


5-2.1. 3# 


5-214 


5- 


-214# 


5- 


-215 




5-234 


5-234# 












1 A 1 -tn 


1 — 1 47 














LAi2FL 


1-148 














LA12N0 


1-148 














LA36 


1-147 














LA36FL 


1-126 














LA36N0 


1-126 














L ACT IV 


1-80 














LAFSIZ 


1-83 














LANGHD 


4-24 


5-162» 












LBSPRI 


1-160 


22-21 












LCBIT 


1-147 














LCDTYP 


1-66 














LCLTXT 


1-57 














l-CLUNT 


1-62 














LCOL 


1-82 


1-133 












LCONTM 


1-91 














LCPUHI 


1-91 














LCPULO 


1--91 














LD^RON 


1-121 


30-30 


30-35 










LDBASE 


1-122 


25-49 












LDCLEN 


1-71 


30-25 


30-41 










LDDEVX 


1-124 


25-41 












LDDHT 


30-40 


32-7# 












LDFLAG 


1-122 


30-30K- 


30-35 tJ 










LDMNT 


1-70 














LDNAM 


1-169 














LDNAME 


1-122 


32-21 If 


33-15 










LDOPHD 


1-177 


5-68# 


30-14 










LDPDEV 


1-122 


25-48 


32-19t^ 










LDSIZE 


1-122 














i..F 


2-4# 














LF*IN 


1-161 


24-51 


24-56 


24- 


-62 


25- 


-58 


LF*OPN 


1-162 


24-21 


25-50 










LF$OUT 


1-161 


24-50 


24-57 


24- 


-62 


25- 


-58 


LF*WRT 


1-162 


24-40 


24-45 


25- 


•58 






LFWLIM 


1-83 














LICTXT 


1-144 














LIIMBUF 


1-78 














LINCNT 


1-80 














LINCUR 


1-83 














LINFRE 


1-191 














LINIR 


1-65 














LJWWXT 


1-78 














LINPNT 


1-80 














LINRTS 


1-65 














LITIME 


1-105 














LviSW 


i-io;^ 
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5^ 


149 


5- 


•i54# 


5 


-155 


5- 


-170# 


5 


-171 
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-1S6# 


5- 


-187 


5- 


-192# 


5- 


-193 


5- 


-198*1 


5- 


-199 


5- 


-209# 


5- 


-210 


5- 


-215-# 


5 


•221 



5-149# 
5-1 5 5# 
5-171# 
5-187# 
5-i93# 
5-199# 
5-21 0# 
5-22 1# 



5-150 
5-156 
5-177 
5- 188 
5-194 
5-200 
5-211 
5-227 



5-150# 
5-1 56# 
5-177# 
5-iS8# 
5-1 94# 
5-200# 
5-211 # 
5-227# 



5-151 
5-157 
5-178 
5-189 
5-195 
5-201 
5-212 
5-233 



5-151# 
5-1 57# 
5-17S# 
5-189# 
5-1 95# 
5-20 1# 
5-2 12# 
5-233# 
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LMXLN 


1-153 












LMXNUM 


1-156 












LMXPRM 


1-159 












LNAME 


1-60 












LNBLKS 


1-107 












LNMAP 


1-113 












LNPRIM 


1-113 












LNSBLK 


1-108 












LNSPAC 


1-117 












1 nr^u-rv 


1 — 190 












LOFSPC 


1-110 


26-46 










LOGASN 


1-172 


25-22 


26-41 


28-25 






LOGBAS 


1-132 


1-134 


25-45tr 


25-49* 






LOGBLK 


1-161 


24-24 t> 


25-60^^ 






' 


LOGBUF 


1-161 


24-23 


25-59 








LOGCHK 


1-133 


33-27 










LDGCHN 


1-161 


24-25 


25-32 


25-32 






LOGCLS 


1-176 


24-15 


25-6 






M 


LOGDEA 


31-11 


32-8 


33-8# 








LOGDVU 


1-132 


1-134 


25~43if 


25-44«- 


25-48«- 




LOGFLG 


1-161 


24-21 


24-40-ts- 


24-4 5* 


24-50-«- 




LOGPTR 


1-161 


24~23i?- 


25-~59+!- 








LOMAP 


1-142 












LOTBUF 


1-81 












LOTNXT 


1-81 












LDTPIMT 


1-81 












LOTS I Z 


1-82 












LOTSPC 
LOUT I R 
LP*7BT 


1-82 
1-65 
1-52 










1 

1 ^ 


LP^ODD 

LF*PAR 

LP$SPD 

LPRGl 

LPRG2 

LPR I 

LPROG 

LPROJ 

LRBFIL 

LRDTIM 

LSCCA 

LSECPT 

LSPEMT 

LSTACT 

1 STATE 

LSTDL 


1-52 

1-52 

1-52 

1-145 

1-145 

1-160 

1-90 

1-90 

1-114 

1-80 

1-110 

1-95 

6-27# 

1-78 

1-140 

1 -89 












LS1HL 


1-62 










LSTIOL 


1 -62 












LSTMX 


1-156 










1 


LSTPL 
LSTPRM 


1-135 
1-131 










f < 


LSTSL 
LSTSPL 
LSUCF 
LSW 


1-140 
1-76 
1-86 
1-61 












LSW 11 


1-32 


20-D;'i:- 


20-8S^^ 







24-51* 24-56* 24-57* 24-62* 25-58* 
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NUCHN 
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NUMDCD 


l~i38 


4-yiii 




NUMDEV 


1-151 


13-10 




WUMON 


1-83 






NXTOPT 


11-43 


12~4# 


12-109 


OCTFIX 


1-178 






OCTPRT 


1-19S 






ODTBAS 


1-154 






0F**S2 


1-153 






OFfDEV 


1 - 1 52 






OF*FIL 


1-152 






OFIiFLG 


1-152 






OF*UNT 


1 - 1 52 






OFFEMT 


1-192 






OKFEND 


1-96 






OKFILE 


1-96 






OPRTXT 


1-57 






OPTLST 


1-43 






OT*RON 


1-153 






OTHRON 


1-194 






OTRMNT 


1-196 






OVRCOR 


1-168 






PO*DBG 


1 - 47 


10-35 


10-45 


PO*NAM 


1-45 






PO*OPR 


1-45 


11-4? 




PO*SPV 


1 -4 3 






PO*SYS 


1-34 


26-23 


27-24 


P2*CGR 


i -40 


18-9 




P2*TRM 


1-45 






PA*BEL 


1-36 


20-61 


20-66 


PA*BLD 


1-35 


5-152 


5-153 


PA*DSC 


1-35 


5-15;:} 


5-154 


PA*DWD 


1-35 


5-15} 


5-152 


PA*GRC 


1-35 


5-151 


5-152 


PA^HQL 


1-35 


5-151 


5-152 


PALLET 


1-35 


20-51 


20-56 


PA*NWD 


1-36 


20-71 


20-76 


PA*UKC 


1-35 


5-151 


5-152 


PA*ULN 


1-35 


5-151 


5-152 


PASLIN 
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PAUMSG 
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PBFEND 


1-118 






PEKADR 


1-38 






PEKEMT 


1-33 






PEKSIZ 


1-38 






PF$IOW 


1-155 






PF*SYS 


1-155 






PFCO 


1-^3 






PFSO 


1-43 






PHYMEM 


1-101 






PMBUSY 


1-135 






PNAME 


1-151 


1-174 


13-12 
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1-175 
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1-27 
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1-78 
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PRIEMT 
PRIVAO 


6-3S# 
1-44 


21 -2;:i 


22-23 












PRIVCO 


1-47 


10-35 


10-45 


11-42 


26-23 


27-24 






pr:cvc2 

PRIVSO 

prmbuf 


1-45 
1-43 
1-131 


1 8-7 














PRMEND 
PR MP NT 
PROSLT 


1-131 
1-130 
1-52 
















PRSDEV 
PRSDRF 


5-129 
5-131 
5-132 


20-6 1# 
20~1B# 
20-;.'6# 














PRSHD 

PRSKEY 

PRSLET 


5-i2S# 

5-133 

5-135 


20-9 
20-81 « 
20-51 # 














PRSNBL 
PRSNKY 
PRSNWD 


5-130 
5-134 
5-138 


20-66# 
20-S7^t 
20-764! 














PRSTYP 
PRSWID 
PRTBUF 


5-136 
5-137 
1-1S3 


20-301f 
20-7 J4i 














PRTDAT 
PRTDC2 
PRTDC3 


i-199 
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PRTDEC 
PRTFIX 
PRTFNM 


1-174 
1-177 
1-183 


9-26 


10-17 


21-10 


21-13 


21-20 


22-10 




PRTLN 

PRTPCT 

PRTR50 


1-179 
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PRTSPC 
PRTTIM 
PRTTMD 


1-177 
1-199 
1-1S2 
















PRTTMV 
PRTTOD 
PRTTTP 
PRTUNM 


1-181 
1-199 
1-178 
1-179 
















PRTWRN 


1-203 


13-16 


13-24 


34-25 


34-29 


34-59 


34-94 




PRVCLR 


14-14# 
















PRVLST 


1 -47 
















PRVOPT 


1-43 
















PRVSET 


14~6# 
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1 - 1 66 
















PVNPW 


1-43 
















PVON 


1-87 
















PWTHD 
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i-59 
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1--59 
















QUME 
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aUMEFL 
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QUMEND 


1-149 
















R*CHN 


1-41 
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1-170 
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R50C0M 


i-ilO 
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R50DIR 


1-166 




R50DK 


1-199 




R50DSK 


1-172 




R50DUP 


1-167 




Rf;OIND 


1 166 




R50K52 


1 - 1 67 




R50KED 


1-167 




RDOKEX 


1-167 




R50KMN 


1 .-37 




R50LD 


1-172 


7-?}^ 30-6 


R SOLDO 


1-170 


30-9 33-22 


R50LD7 
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7-54 


R50L0G 


1 - i 76 
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R50M0N 


1 -200 




R50N0 
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R50PIP 
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R50SAV 


1-166 
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R50SY 


1-166 




R50TSX 


1-167 




R50TT 


1-195 




R50UCL 


1-167 




R50VIR 


1-168 




RC**SZ 


1-51 




RC*AEP 


l-'70 




RC'^iAGE 


1 50 




RC$CNT 


i--49 




RC*EXC 


1-50 




RC*FLG 


1-50 




RC*GBL 


1-50 




RC*LCG 


1-52 
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1-51 




RC*NAM 


1-50 




RC*OWN 


1-49 




RC*PVT 


1--51 




RC*USE 


1-50 




RCBBAS 


1-51 




RCBEND 


1-51 




RCLHD 


5-104# 


34-105 


RCLREV 


1-34 


34 -109 ft 


RDB 


1-139 




RDBEND 


1-139 




RDCMD 


1 - 1 64 


4-17 4-54 




14-37 


14-44 14-50 




17-8 


18-8;; 20-14 




29-53 


30-26 30-31 


RDERM 


1-168 




REMTXT 


1-57 




RESDEV 
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RUNDEV 
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RUNEMT 


1 - 1 6B 




RUNHD 


1 -■ 1 64 




RUNMS 


1-200 




SliHICP 


1 -92 




S*INWT 


1 -93 




S$J.OFN 


1 -se 




S*IOWT 
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SfLOW 


1-90 




S*MSWT 


1-94 




S*OTFN 
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S$OTLO 


1-8S 




S*OTWT 


1-93 




S*QMIO 


1-86 




S*QUSR 


1-145 




SliRT 


1-90 




S*SFWT 


1-93 
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S*SPCB 


1-146 




SliSPDB 


1-146 




S*SPND 


1 -87 




S*TMWT 


i-?3 




S^TTFN 


1~SS 




S*TTSC 


1-89 




S$TWFN 


l-SS 




S9600 


1-93 




SBPFIL 
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27-17# 


SBPHD 
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27-11 


SBPSUF 


1-36 


27-38 


SC*ERR 


1-33 


5-15 


SC^FTL 
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SC*NON 


1 --33 


5 -.19 


SC*SEV 


1-33 
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SCfSUC 


1 -33 




SC*UNC 


1-33 


5-10 


SC*WRN 


1-33 


5-14 


SCHAIN 


1-124 




SCNOPS 


1-37 


18-22 


SD$BAK 


1-127 
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SD*FLK 


1-120 
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1 - 1 30 




SD*SNG 


i-129 




SD*WFM 


1-120 




SDBLK 


1-121 




SDBU 
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SDBUFl 


1-121 




SDCB 
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SDCBND 
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SDCBSZ 
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SETDEV 
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1-32 
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SETIVD 


11-15 
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SETIVS 


12-45 
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